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This book is intended to help you learn to use RPG to 
write programs that produce printed reports. The book 
is designed for people with no previous knowledge of 
computers and programming and for people who already 
know a programming language but who want to learn 
about report writing in RPG. 


After reading this book, you should not expect to be 
able to write complex RPG programs. You will be 
introduced to only a small part of RPG. Many important 
features in RPG are not discussed in this manual; they 
are discussed instead in the RPG reference manual for 
your system. However, this manual provides enough 
background knowledge so that you can readily learn— 
from reference manuals, classes, or IBM 
personnel—more detailed information that is required for 
writing programs for your system. 


For most systems the RPG programming language is 
called RPG Il or RPG Ill. As the Roman numerals 
indicate, these two RPG products differ somewhat. 
However, the basic concepts of batch processing with 
program described files apply to both RPG II and RPG 
lll. Therefore, this manual refers to the RPG 
programming language as simply RPG. Note that this 
manual does not discuss interactive processing or 
externally described files. 


How This Manual Is Organized 

The first chapter describes, in general terms, how a 
system operates and what you must do to run a 
program. The information in that chapter answers such 
questions as: 

« What are the parts of a data processing system? 

e What is a program? 

e What is a programming language? 


« What is an RPG program? 


¢ How is an RPG program run on a system? 


Preface 


The second chapter describes the RPG program cycle 
and the RPG specifications you must write to do a 
particular task. The material in that chapter provides a 
gradual development of concepts, from the simple to 
the more complex. Thus, it is important to read the 
material in sequence. Sample programs illustrate the 
concepts presented. 

The third chapter explains an RPG programmer's job 
more fully. It shows the things a programmer must do 
from the start of a sample program to its completion. 
RPG Coding Forms 

Following is a list of forms used to code and debug 
RPG programs. Contact your local IBM branch office to 


order any of these materials: 


« RPG Control and File Description Specifications, 
GX21-9092 


e RPG Input Specifications, GX21-9094 

¢ RPG Calculation Specifications, GX21-9093 
¢« RPG Output Specifications, GX21-9090 

e RPG Indicator Summary, GX21-9095 

e RPG Debugging Template, GX21-9129 

» Printer Spacing Chart, GX20-1816 

e Record Layout Form, GX20-1702 

e Disk File Layout Chart, GX21-9108 


¢ Printer/Display Layout, GX21-9174 
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Chapter 1. Basic Data Processing and Programming Concepts 


To some people, data processing seems complex and mysterious, and data 
processing machines seem even more so. Actually, data processing is logical 
and straightforward. There is no more mystery about it than about most 
familiar business activities. For example, the statement we receive from a 
department store, listing our charges and payments for the preceding month, is 
processed data. Data processing merely means performing a series of planned 
operations on data to achieve desired results. The machines are simply tools 
that handle the volume and repetition of data processing. 


PARTS OF A DATA PROCESSING SYSTEM 


All data processing systems include input devices, output devices, and a 
processing unit. 


Input Devices 


Input is the data to be processed. The devices used for getting that data into 
the system include card readers, magnetic tape units, magnetic disk units, 
diskette storage devices, and work station keyboards. Information about the 
input devices applicable to your system is in the RPG reference manual for 
your system. . 


Output Devices 


Output is the processed data in usable form. The devices that produce the 
output include printers, card punches, magnetic tape units, magnetic disk units, 
diskette storage devices, and work station display screens. Information about 
the output devices applicable to your system is in the RPG reference manual 
for your system. Because this manual deals only with report writing in RPG, 
we refer only to printed output. 


Processing Unit 


The main part of a data processing system is the processing unit. The 
processing unit controls the operation of the system, performs the 

arithmetic /logic functions, and contains the system’s memory area, called 
storage. Storage holds the data and the instructions that tell the system how 
to process the data. Storage capacity is measured in bytes, K-bytes, or 
megabytes. A byte is the representation of one character. One K-byte is 1024 
bytes (1024 = 2'°). A system that has 32 768 bytes of storage is called a 32-K 
system. A megabyte is one million bytes. Thus, 8.6 megabytes are 8 600 000 
bytes. 
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PROGRAMS AND PROGRAMMING LANGUAGES 


By itself, the system cannot know how it should process your data. Therefore, 
whenever you want the system to process data, you must tell it: 


e When to read each item of data to be processed 
e What form the data will be in 

e Where in the system the data is stored 

e What calculations to perform on the data 

e What form the calculated results will be in 

e« How to record the results for further use 


In short, a data processing system requires a set of instructions that describe 
the data and that identify each successive step of processing to be performed 
on the data. These instructions are called a program. 


To communicate with the system, you must use the system’s language, or one 
that can be translated into that language. The system’s language is called 
machine language. It consists of letters, numbers, and symbols that, when 
properly arranged, have a specific meaning to the system and that, when 
interpreted by the system, cause it to perform a desired function. 


Because machine language is so very different from our own language, it is 
extremely difficult to use it to write a program. For this reason, programming 
languages have been created. A programming language allows the programmer 
to use familiar words and symbols to write instructions. 


The RPG programming language is composed of letters, numbers, and symbols 
that you put together to form an instruction. When creating instructions in the 
RPG language, you must follow certain rules just as you would when 
constructing a sentence in English. You will learn about these rules in Chapter 
2 of this manual. 


The set of instructions you write is called a source program. This source 
program is translated, by a program called the compiler, into a 

machine language program called the object program. The data processing 
system uses the object program to process data. In fact, the system can use 
it over and over to process several sets of data. 


Source Programs 


The instructions you write for any program must describe the input, processing, 
and output requirements of the program. For example, one instruction might 
direct the system to read an input record, another might tell the system to add 
two numbers, and another might tell the system to print a line on the printer. 
Because not all programs are the same, you provide a different set of 
instructions for each program. 


To write the instructions, you fill out RPG specification forms (see Figure 1). 
These forms have been specially designed to help you write instructions 
according to the rules of RPG language. The act of writing instructions on 


these forms is called coding; the entries you make on the forms are called 
specifications. 


RPG OUTPUT SPECIFICATIONS GX21-9090 UM/050° 


Printed in U.S.A. 


IBM International Business Machines Corporation 


75 76 77 78 79 80 
P ; i Card Electro Number 
aes Keying [ Srerc | | | | | | [| Prosram 
pee me ew | TP TE te 


RPG CALCULATION SPECIFICATIONS | GX21-9093 _UM/050° 


Printed in U.S.A. 
IBM International Business Machines Corporation 


75 76 77 78 79 80 
i Card Electro Number 
Program Keying | Grmic | | Tt | | Program 
Ea Cl cc 


RPG INPUT SPECIFICATIONS GX21-9094_UM/050° 


Printed in U.S.A. 





IBM International Business Machines Corporation 


75 76 77 78 79 80 


RPG CONTROL AND FILE DESCRIPTION SPECIFICATIONS GX21-9092 _UM/050" 


IBM Printed in U.S.A. 
7% Internationa! Business Machines Corporation 


T 75 76 77? 78 79 80 


Control Specifications 


‘ Reserved 
o| 3 : 
S| § 
aj 2 
16416 17119) 191 20) 21/22] 23 24 25 (26 30 311 32 33 34 35 36)37)- 





For the valid entries for a system, refer to the RPG reference manual for that system. 


1P Forms Position : 
Indicator Setting 

Punch MFCU Zeros 
Nonprint Characters 

Table Load Halt 
Formatted Dump 

RPG to RPG tI Conversion 
Transparent Literal 


Fite Translation 
Shared 1/0 


Listing Options 
Currency Symbo! 
Date Format 
Inverted Print 
Sign Handling 
§/3 Conversion 
CicS-DL.| 


Alternate Collating Sequence 
Field Print 


5] 56757158 59 60 61 6? 65 64 Gh BU G/ BB BO 70/1 78 74 74 


> 
>» 
S 
P< 
>» 
~ 
5 nad 


4? 6 8 


o Object Output 
1. 


—_ 





2? 28 29 38 39440 3144/45 49/50/51] 52 59 Sa} 5! 


File Description Specifications 
For the valid entries for a system, refer to the APG reference manual for that system. 
File Type Mode of Processing ; File Acidition/Unordered 
Length of Key Fieled oe Extent Exit Number of Tracks 
of Record Address Field for DAM for Cylinder Overflow 


Name of Number at Extents 
Label Exit 


File Designation 


End of File 


Record Address Type Symbolic 


Sequence : 
Device 


Filename Device Tape 


Rewind 
File 
Condition 
U1-U8, 


Continuation Lines uc 


: : eh ee ae! 
8 54 55 56 57 58 59/60 61 G2 63 64 65/66 
‘ ———! de: -< 3 


Type of File 
File Format Organization or 
Additional Area 


Labels S/N/E/M 


Storage Inciex 


Extension Code E/L 


P/S/C/R/T/D/E 
F/V/S/M/D/E 


K 
53 
il 
































Notes: 


1. The specification forms shown in this manual are used for RPG programs on several IBM systems. However, not all column headings refer to 


valid entries in those positions for all systems. Refer to the RPG reference manual for your system to determine which entries are valid for 
your system. 


2. Column headings on other versions of these forms may vary slightly from those shown in this manual. 


Figure 1. RPG Specifications Forms 
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To describe the input, processing, and output requirements of your program, 
you supply information on each form. For example, you have to describe your 
input data and specify what device (such as a disk unit) will read it. You also 
have to describe how the input data is to be processed. This includes 
specifying what type of operations (such as add or subtract) must be 
performed on the data. Finally, you have to specify what kind of output you 
want (such as a printed report), what information must be included in the 
output, and how that information should be arranged. 


After you have coded the specifications forms, the next step is to get the 
coded information into the system. The system cannot read the coded forms, 
SO you must put the specifications into a format that the system can read. 
Depending on your system, you key the specifications onto a diskette, into 
punched cards, or directly into the system. 


Translating Source Programs into Object Programs 


As we said earlier, the system understands only machine language. It cannot 
use a coded program (written in a programming language like RPG) directly. 
Any program you write in RPG must be translated into machine language. The 
translator is a program called a compiler. The RPG Compiler program is 
available from IBM. 


The compiler translates your RPG specifications (source program) into machine 
language (object program). The translating it does is called compilation. 
Essentially, the compiler performs three functions during compilation: 


¢ It determines what machine instructions the system needs in order to 
perform the job described by your RPG specifications. 


« It translates your RPG specifications into a machine language program. 


« It assigns storage locations to program instructions and data. 


Summary 


Figure 2 illustrates the steps you must go through to produce a report when 
you use RPG. 


(a) Determine the requirements of your program. 
- Define the input and printed output. Also 
decide what processing must be done in 
order to get the proper results, 










Calculation 









Control 
and File 
Description 


(2) Write the source program on the RPG 
specification forms. 


Figure 2 (Part 1 of 2). Steps in RPG Data Processing 
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Keyboard 


(3) Key the source program on cards, 
disk, or diskette. 








(4) The source program in punched 
cards, diskette, or disk is read 
into the system. 


System 
Processing 
Unit Storage 






Diskette 









Compiler Program 


Compiler program on disk 


Source Program 







G) The compiler program, read from 
disk into storage, translates the: 
source program into an object 
program. 





naan, 





! | — | Object program in 
Object program Lo — ~ — — —-! punched cards or 
on disk on diskette. 
(8) From disk, diskette, or cards, System 
Processing 


the object program is read 


into the system. Unit Storage 





Object Program 


Input Output 
Data files Printed report 


) The object program processes the 
data specified by the RPG program 
and produces the desired result. 


Figure 2 (Part 2 of 2). Steps in RPG Data Processing 


DATA PROCESSING TERMS AND PROGRAMMING AIDS 


Data Processing Terms 


The basic unit of organized data is the record. A record can be defined as a 
group of related data items treated as a unit. The system reads and processes 

_ data one record at a time. A sequence of records containing the same kind of 
information is called a file. Within a record, each data item is called a field. 
Fields vary in length, depending on the number of characters each data item 
contains. For example, the field for a customer's name would be longer than 
the field for a date. Fields can be alphabetic (for example, a name field), 
numeric (for example, a credit limit field), or character (for example, an 

address field). Piaure. 3 illustrates the meaning of the terms field, record, and 
file. — : | 


Field: An area in a record reserved — ee — Card — 
and used for a particular item of data.. | File 


Record: A group of related fields. 


File: A group of related records. 














State 





Name Zip 





City 
ee Record 





Part Unit of Quantity 
Number | Description | Price | Measure | in Stock 


ee te eg te Se ome Se ele ee 


. Fields | 


Fields | ‘<—File (Printed Report) 


Accounts Receivable Register 


Cust Name 


~ Invoice 


Cust Invoice | 

No No Amount 
Record 7560 —Alllstons 06340 = $_ 44,32 
(A record 7632 Village Shop 06341 148.39 
on a printed 8392 Ray’s Repair 06342 4.28 
report is ees ail sae cor ae 
commonly 
called a 
line.) 


| Figure 3. Basic Data Processing Terms 


Fields 
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Programming Aids 


Figures 4 and 5 are examples of some forms to use when you prepare to write 
a program. 


IBM INTERNATIONAL BUSINESS MACHINES CORPORATION 






| Type of Records ITEM TRANSACTION RECORD By 


CERT a A ha ER A, LE RE A A 
pe Coy ste Viol t5ti6 2021 a5]26 3031 3536 40]a1 asa 50/51 5556 


Application 


_| RECORD NAME AND REMARK g==! 

































Customer Olyder List Setting 
ur ber Number HE Ltem Deseri ption Brice Price 
(QUSTNG . (ORDNo) (LTEMNO) ( GISTPR) (SELLPR)| 


bets tae as eee Laine sasesics Coe eee eee 
The record layout form shows what records in a file look like. This form is filled out at 
the time a file is designed. It shows what fields are in the record (1) and the exact loca- 
tion and length of each field (2) . It may also show the names you use in your program 
to refer to each field (3) . 


There are different record layout forms for disk, 80-column cards, 96-column cards, and 
tape. The form shown above is one of the forms that can be used for disks. 









Fe) Ms es a LM, (ARE A I la a Fd 
[oes Cle als hho tats 1920 2afz5 2030 afas  safao esos cals sale 


*Two numbering arrangements, each in hexadecimal and decimal! notation, are shown. Select the arrangement and notation used by checking the appropriate box to the left. 





tThe number of forms per pad may vary slightly. 


Figure 4. Record Layout Form 
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Be ! . The printer spacing chart indicates what a printed report should look like by showing EQIRaRS 
2 _ | what information is included in the report and how that information is organized. It ; cae | 
+t. | shows: . + 
pa |§ ZurRQeAE 
Fri POR GGRERERS eS 
a {1111 | @) What types of lines (heading, detail, total) to print | —— 
ARESERRaaG - (2) What spacing is required between lines Pity TT 
a7 itt tT | @) What information to include in the lines = LU 
ee Hi (4) The exact location of that information (the numbers at the top and bottom of the HGELRIEES 
ao) form correspond to print positions on the printer) ila BEE 
a ! (3) The positions in which data is to be printed (Xs mark these positions) Hi | 
——— | The field names used in your program , 
Pie , The punctuation to be used nee 
CRESS RERESREE ace 
: SEERRORE 
SET E AEE _ | (You could also use the Printer/Display Layout Form, GX21-9174, to show the format of @ . a | 
a ~|a printed report.) : ! 
sol | | tHE RIAETRG 
Slag eles 
shld [ETRE sah HAAR /okletlelslelggaingalageine 





een Fold back at dotted line. 


Figure 5. Printer Spacing Chart 
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Chapter 2. RPG Programming Language 


RPG Program Cycle 


When a system processes data, it must do the processing in a particular order. 
This logical order for the processing is supplied by the RPG compiler and by 
your coding. 


The logic the compiler supplies is called a program cycle (see Figure 6). The 
object program goes through this cycle of operations every time a record is 
processed. Depending on your specifications, the object program may or may 
not use a particular operation in the cycle. However, the program still goes 
through the complete program cycle every time. Because one program cycle is 
needed for each record read, many program cycles are required for every 
program. 


It is important that you know the order of the operations in the RPG program 
cycle. This knowledge enables you to write specifications that use the cycle 
correctly. By knowing the order in which the operations in the cycle are 
performed, you can organize your program efficiently and save yourself 
unnecessary coding. 


This chapter explains the operations in the RPG program cycle a few at a time. 
You will learn: 


e Which operations are used for a particular function. 


e Which RPG specifications you must write to use the function. 
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START 


Perform heading 
operations. 
Perform detail 


Aitniit anaratinne 
ww ws “hu - wt pret a te ae | 


Perform detail 
caicuiations. 
Set resulting 
indicators. 













if overflow line 

has been reached, 
set on overflow 
indicator. 





at: 


Move data from record selected at 


beginning of cycle into processing area 


Set field indicators. 


yim 






Set off contra! 
level indicators. 

Set off record 
identifying indicators. 





If overflow indicator is on, do 
overflow operations and set 
overflow indicator off. 





Read a record. 


Program 
Cycle 





If LR indicator is on, end of 


If last record, set on 
program has been reached. : ; 


control level and LR 
indicators, and go to 
Perform total calculations. 


ty 








Perform total output operations. 
if overflow line has been reached, 
set on overflow indicator. 





SEE tarred as 


Set on record identifying 
indicator. 













Perform total ee 







calculations. 
Set resulting If change in control 
field, set on control 


indicators. 


level indicators. 


Notes: 

1. The program cycle shown gives the general order of the operations. This cycle may 
vary slightly from the detailed cycle discussed in the reference manual applicable to 
your system. 

2. You do not need to memorize the program cycle. The cycle is shown at this time only 
to give you an idea of the cycle of the operations. The operations will be discussed in 
greater detail later. 


Figure 6. Program Cycle 


12 


Writing Specifications for Input and Output Operations 


One of the simplest programs you can write is one that reads information from 
an input record, such as a card, and then writes that same information in the 
form of a printed report. 


Program Cycle Operations 


This simple program uses only the three most basic operations in the RPG 
program cycle. Figure 7 shows these operations. 


Notice that two operations concern the basic requirements of a program: input 
(read a record) and output (detail output). The third operation is the movement 
of data inside the system. 


START 









| Perform detail 
- output 
| Operations. 










Move data from record selected at 
beginning of cycle into processing area. 


“Read a record. 


Program 
Cycle 


Figure 7. Three Basic Operations in the RPG Program Cycle 
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Data read by an input device must be transferred to the system's processing 
unit before it can be used. Moving data is a mandatory operation for every 
program. Because this operation is mandatory and is done exactly the same 
for every program, the compiler can supply instructions to do it. 


When the program is executed, the program cycle is repeated over and over. 
All three operations are used for every record in the input file. The term detail 
output in the cycle operation means output operations that are performed for 
every input reccra. 

It may seem strange that detail output comes before a record is read. This 
occurs, however, so that headings can be printed on a report. If a program 
does not print headings, no information is printed during the first cycle. 


To use these cycle operations properly, your specifications must describe the 
records in the input file and specify how the output records should be created. 
You must also indicate what devices are used in the program. 


DESCRIBING THE FILES | 


The File Description Specifications form is used to describe all the files used 
by your program. This description includes the name of the file, the device 
used with the file, and information on how the file is to be used. You describe 
the files by filling out the indicated positions on the bottom half of the form. 


RPG CONTROL AND FILE DESCRIPTION SPECIFICATIONS | GX21-9082 _UM/050° 


SSS = Printed in U.S.A. 
eT= = Inte rnational Business Machines Corporation 






1 2 75 76 77 78 79 80 


Program 
f 
Page| | |e ___—_ Identification 






Instruction 
[Progammer fore eon cy | | TT TT 


Control Specifications 


= om pom] 1] 1... | enn 


For the valid entries for a system, refer to the RPG reference manual for that system. 


Reserved 


S/3 Conversion 
Subprogram 


r 
a: CICS/DL/t 


) 
3 5 2 

» 
Fe 2¢é 
BY E 
tH 36 
x Z2u 

52 





File Description Specifications 


For the valid entries for a system, refer to the RPG reference manual for that system. 






Made of Processing 



















Length of Key Field or 
of Record Address Field 


Number of Tracks 
for Cylinder Overflow 


File Designation 


End of File 

































Name of 


symbolic Label Exit 


Device 










Sequence 





Filename Type of File 


ae Organization or 
& Additional Area 











File Format 


Block Record ¢ 
Length Length 
3 ON 


External Record Name — | Entry 


40 41 43 44 4 
Sth marr etl 
SPST PNT 
St te PSO 
ESTE tt Pe So HITE AS 
== 


Name 14 How file Hy Program described }- [ Siz of records } Input or output 
of file ae is used FHL file format ee the file 7 | devices used 

i 

el 


Storage Index 


| Continuation Lines | ion Lines 


Overfiow Indicator |" 
Key Field 
















plete lolto}. 
fe fa [ets a 















ol eT TT TT TT TSISSTSEEEBIIES — nero een ett 
ZL LL OL 69 8 49 99 SI ¥9 £9 79 19 09 GS BS 45 95 SS PG ES ZS IS 0S Gr BP Lv Ob SP pp EP Zp tb Ob GE SE LE SE SE bE CE ZE LE OF 6% BZ LZ 97 Ge We Ge: CEE Oe SESE LY SL Gi pe et Zi tL OL G6 B ££ 9S YE Z@ 1 


You must describe, on a separate line, every file used in your program. Many 
simple programs require only one input file and one output file. In the first 
programs we discuss, therefore, we use only one input file and one output file. 
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File Names 


Every file used in a program must be named. The name provides you and the 
compiler a means of identifying the file. During compilation, the compiler 
associates the file name with other characteristics of the file. Thus, you can 
refer to that file by name throughout your program, and the compiler knows 
exactly which file you are referring to. 


riowever, the compiier recognizes fiie names oniy if they conform to inese 
rules: 


« A file name must be from 1 to 8 characters long. 


e The first character of a file name must be alphabetic. The remaining 
characters in the name can be either alphabetic or numeric. 


e Blanks must not appear between characters in the file name. 


¢ No two files used in the same program can have the same name. (Because 
some RPG compilers use only the first 7 characters of an 8-character file 
name, be certain, when using these systems, to make the first 7 characters 
unique; for example, use TRANSACT and TRANFILE, not TRANFILA and 
TRANFILB.) 


e The file name must begin in position 7 on the specifications form. 


Filename 











i«— Valid file name. 

_ Invalid file name. Name must start in position 7. 

<— Invalid file name. A blank must not be used between characters. 
— Valid file name. 

— Valid file name. 

+-~— Invalid file name. The first character of the name must be 

an alphabetic character. 





It is a good practice to assign meaningful file names. Meaningful names 
indicate something about the file, such as the type of records in the file or the 
use of the file. Because file names can be no longer than 8 characters, 
abbreviations may be necessary. But these, too, can be meaningful. For 
example, the abbreviation CUSTCHG might be assigned to an input file 
consisting of records for all customers having charge accounts. 


Device Designation 


You must also specify which devices your program uses for input and output. 
The ones you use, of course, depend on the system you have, the devices you 
have, and your program. | 


To indicate the device used for the file you named, enter the RPG code name 
for that device in positions 40 through 46. The name must begin in position 
40. 


Note: The examples in this manual use shading in the device name positions 

rather than actual RPG code names for devices because code names differ for 
each system. The RPG reference manual for your system tells you which code 
names are applicable. 


During compilation, the compiler associates the file name with the device 
name. When you use the same file name in the rest of your program, the 
system knows which device to use. 


File Use 


You must also describe how each file and its associated device is used in a 
program. Files can be used as either input or output. (Files with other uses are 

_ not discussed in this manual.) If records are read from a file, the file is an 
input file. If a new file is created during the program, the new file is an output 
file. Printed reports are the only output files discussed in this manual. 


You specify file use by placing either an | (input) or O (output) in position 15: 





«<———. Input File 
| ~x—— Output File 


File Designation 


Position 16 is used to explain more about the use of input files. In this manual 
we are discussing the use of only one type of input file, the primary file. For 
this, you place a P in position 16. Designating a file as a primary file in an 
RPG program indicates that the RPG program cycle supplies some of the 
program logic. For more information on primary file and other types of input 
files, see the RPG reference manual for your system. 
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File Format 


Position 19 is used to identify the format of records in the file and to indicate 
whether the records are defined in the RPG source program (on input and 
output specifications) or defined externally. This manual discusses only 
fixed-length program described records, which require an F in position 19. For 
information on other entries, see the RPG reference manual for your system. 





| 

| 

| 

File cae. 
| We 


Record Size 


When describing files, you must specify the length (in characters) of records in 
the file. Record length is entered in positions 24 reer 27. Enter the length 
so the last digit is in position 27: 





The record length specification does two things: 


« It tells the compiler how much storage space to set aside for a record (input 
or output). 


e it specifies how many characters must be read to get a complete input 
record. 


Record size for card files is easy to determine. It is either 80 or 96, depending 
on the size of cards you have. Maybe not all your cards have information in all 
columns, but all columns must be read to get an entire record. Blanks are 
placed in storage positions corresponding to unpunched card columns. 


The size of records (lines) on the printer is also easy to determine. Printed 
records are limited by the size of your printer (the number of print positions in 
a line). 


You may, if you wish, specify a record size smaller than actual printer size. If 
you do this, make certain that none of the lines to be printed are longer than 
the length you specify; otherwise the RPG compiler will give you an error 
message that requires that the program be corrected and recompiled. 


Records on other files, such as disk, can be any size. The maximum size is 
limited only by the capability of the device. When you use one of these files 
for a program, make sure you enter the correct record size; that is, enter the 
one established at the time the file was created. 


Other information may be required to describe how the input file is stored on 
the specific device in positions 29 through 38. See the RPG reference manual 
for your system for these entries. 
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DESCRIBING INPUT RECORDS 


Besides describing files, you must describe the records in each file. The 
compiler needs this information to create an object program that will read 
records properly. Input records are described on the Input Specifications form. 
A description of the record in a file includes the name of the file containing the 
record, the name of each field in the record, and where each field is located in 
the record. To describe fields and data in the record, fill in the indicated 


postions: 





TBM, vrsicnn tuieen martioes Covent Are eer core ons Printed inUSA 


12 
75 76 77 78 79 80 
Keying | Graphic | | | | | | |__| Card Electro Number pagel | lot second Oi OE Ee 
mewn Tey EDP DELL patna 
















| | = External Field Name ; Field | | 
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Filename 3 3 Record Identification Codes = 5 
or 5 = 21. | 2 
z 23 Z ag = 
g|  RecordName | § [uln|se i From s RPG = |3 3] = 
e <|=]2 & ‘S| Field Name z jz 2} & 
Line |'c =|5|$8 5 5/4 ]<| 7 data sy J data sigh = -leol 3 | p | 
~i~ |= 2 ; 4 4 a sfi&ecle us }Minus] or 
é Data $ Sis Position S 3 Position : 3 z 3 z ae 
stale ~ sie y, a 2 
tes 3 & é oO & o1hA Length 6 1=6] i 
34 51617 8 9 10 17/18/19 20121 22 23 24126}26 [27 [28 29 30 31 al Ale “A 45 46 47/48 49 5u 51/52/53 54 55 56 57 58/59 ONE! 62163 64165 66167 68169 70171 72 73 74 





DOE LARE ER RAR RARER RRR ECAR ERROR tl ee EEE Se er 
COGS EREe PEER RR ER BRE R ER REAR ARERR ARERR ARR R SAMAR RARE SABER REE 
BE | ERASE A RES EEE WEEE Ee 










Name of input file 










BE q GhAReRaaEE Location of each Gases ial lehal aia Names of fields 
je} containing record's TTT TT TTT TTT TTT] tieta in the record TTT TTT TTI TT TIT] in record 
6| YOu are se SEVELTAESEARE BSRRREIS P| 
Anes) ee abe ebee eee hac th ene belt year EG 
BGO sn Ge IME GGR A! 22ee oe ected ci 
See onde nia acticin 





each field 






pa EEE tt 
POR REE R ERS REPT RAR RES AR AIEEE Aaa CARRERE REC AR AREER BEER Raa) 
SS RURMS RRNA RASA ORATOR RR ER DOS AREA MRE RRRR TERE A BERGE RRB EE BS REE aR ReaR 

BOSE ESOT iE see Cera ERS aie ea! 
CRETE CETTE EEC EEE | 


To help in describing input records, you can use the record layout form 
described in Chapter 1. That form shows the location and lenath of all fields in 


the record. 
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File Names 


To tell the compiler which records you are describing, enter in positions 7 
through 14 the name of the file containing the records. The name must be the 
same (and spelled exactly the same) as the one you assigned to the input file 
on the File Description Specifications form: 


lzM International Business Machines Corporation R PG IN PUT S P ECI F I CATIO N S 


2 
Prowam Stock Transaction Regiter Keying | Graohic | | | | | | | Card Electro Number ron| | | 
cca Se PC 





External Field Name 
assiei dati Heaton Gadec File Description Specifications 








Indicator, 





Filename 
or 
Record Name 














Mode of Processing 








Length of Key Field or 
of Record Address Field 





File Designation 


Form Type 































End of File 
Se Record Address Type 2 
7 uence ° 
Filename a Type of File = Device 
File Format “Organization or 8 
wd & Additional Area 
x) | Js = s 
5 2 = Block © Record E Overflow Indicator ‘2 
a 
jo}2] |¥k fe | ol|e S} Length | Length a Key Field | 
DIS | x Starting 
ete ae AE] tosses 
Sja lu External Record Name 





22 23 G20 20 21 2 24 34 35-96 27 Gels 40 41 32 43 66 45 a6, 


. ralig 2021 22 25 2a 26 2627 2B OM 
Doe. TRN|sh we Cae here | 
ols] fF BPPREP TTT RePESESIEBRRERAESR ERE 
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Field Names | 


To identify individual fields in the record, you must give each field a unique 
name. From information you placed on the File Description Specifications form 
the compiler determines the size of the storage area for each input record. The 
field names you supply on the Input Specifications form tell the compiler to 
divide this storage area into smaller sections so each can be addressed 
separately. 


The rules for forming field names are as follows: 


e The field name must be from 1 to 6 characters long. 


e The first character must be alphabetic. Remaining characters can be either 
alphabetic or numeric. 


e Blanks must not be placed between characters in a field name. 


e The field name must begin in position 53 on the Input Specifications form. 


RPG 
Field Name 









WAME | ~— Valid field name. 
: ~— Invalid field name. A blank cannot be used between characters in the name. 
~— Invalid field name. A field name can be no longer than 6 characters. 
~— Valid field name. 
~— Invalid field name. The name must start with an alphabetic character. 


It is a good practice to assign meaningful field names. For example, a field 
containing customer numbers would be more meaningful if it were called 
CUSTNO rather than FIELDA. CUSTNO indicates something about the data in 
the field. 


Enter field names one line below the file name, using a separate line for each 
field: 





| Customer Order babe 

Number Number Number’ Description 

(custNo) (ORDNO) CITEMNO) (DESC) 

TEDT SIT Sees [rls See Ae ae EEL REESE 


RPG 


Field Record Relation 












: es 
a : 4a] Lf i Field Name ze 
j=! == | ib 
ery tire TILT SLL LILLE srantaee 
ol2] itt TTL ELL PLL ETL EEL LLL telulsiziwfol | EE EET ET 
ols! (ai TT Ld SERARGAGRGRREROGACCCTCRARGEDROEWRRRRGED 
ole] (xt | ttt | LETTE TTT TTT isles CT TTT 
ols! dal |] PTE TET ELT ELLE LT icelol F PT AA EEE 
ole] itt TTT RECERESERRERERAE sll | 1 ily 
ol7t itt TTT ELIT a eee | ESTP, 2 Pde Te ak 
ols] mt TT ETT TTT PET TTT ETT TET ETT Ly [ isleielelees | i tt EE 
PT eae ce eee ee BORER A OE RRERER RA TAREE G REE eR RES 


Be sure to name every field that contains information necessary for your 
program. If you need all fields on the record, name them all; if you need only 
a few, name only those you will need. The entire record is read, of course, 
regardless of how many fields you are using from that record. However, only 
information in the fields you name can be used by the program. 
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Field Location 


After you assign a field name, you must tell where the field is located in the 
record. This enables the compiler to associate the field name with the right 
information. To describe the field location, you specify the position in the 
record at which the field begins and ends. Starting position is specified in 
positions 44 through 47 (From); ending position is specified in positions 48 
through 51 (To). When a field is only one position, starting and ending position 
entries are the same. Field location entries can be easily determined from the 


record layout form: 


| Customer |Order Item 


Number Number 3 b= Number 
(CUSTNO) (ORDNO) vf a (iTEMNO) 


12] 3)4] 5/6] t/a [9 [io] i fie | i3fia [ts [16 [1718 [9 [20] 21 | 22] 23 | 24] 25/26] 27] 









Field 
Indicators 













Filename 









RPG 


Sequence 


Control Level (11-19) 
Field Record Relation 







Z S 
2 uy 
tz] = 2 ed 
cs 1 Field Name if 
oO nu 
Me % £2 
e7 = Ss 
g 3 g 36 
ame D 
3 4 5/617 8 9 1011 12 16 BN9 5u 57/52/53 54 55 56 57 5859 60/61 62/63 64/65 66/67 Gales 70171 72 73 74 
fol] (IITIRIAINis! | | tT angel NS ER RERRSRERELESERARE RSLS 
DORE ARERR coor BRRREeal mn a fu Wo 
ost rt ET PEPE EE CEE ais rive mo CECE 
OTe ee ee GRIER Gee a ese RG po ite is abba || 


The compiler also determines field length from the To and From entries. The 
compiler needs field length to determine how many storage positions to allow 
for each field. If the field locations you specify indicate a field length of 6, the 
compiler allows six positions in storage for the field. 


Type of Data 


To complete your description of the input fields, the compiler checks position 
52. This position indicates whether data in each field is character or numeric. 
A numeric field can contain only numbers; a character field can contain 
numbers, letters, and special characters. 


If position 52 is blank, the compiler assumes the field is character. For numeric 
fields, position 52 must contain an entry. This entry indicates the number of 
decimal positions (digits to the right of the decimal point) in the field. 


For character fields, leave position 
52 blank. For numeric fields, enter 
in position 52 a number O through 
9 to indicate the number of decimal 
positions in the field. 


of: 
& fF. 
gt 
Hi 
OQ §: 
sl 
£ fe 





Although you do not include decimal points in fields in input records, you must 
consider them if you want correct calculation results and output data. By 
specifying to the compiler the number of decimal positions you know to be in 
a numeric field, you provide the information necessary to produce an object 
program that will handle numeric data with decimals. 


Remember, any field used in an arithmetic operation (add, subtract, multiply, or. 
divide) must be specified as numeric. 
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DESCRIBING OUTPUT RECORDS 


Output records are described on the Output Specifications form. Information 
needed includes the name of the file containing the output record, the name of 
each field in the record, and the location where each field is to be placed in 
the record. To describe how the output records should look, fill in the 
indicated positions: 


RPG OUTPUT SPECIFICATIONS GX21-9090 _UM/050" 




























IBM International Business Machines Corporation Printed in U.S.A. 
ae cr ia ee aaaal 
instruction identification ZzeRee | 
- | 
ig = Ski Output | ndisateies Zero Balances X = Remove | 
E 2 Secs e deci Name es seca il ee a ae Ro Stan SE: yi PlusSign | 5g. 
|= Yes vee 1 a ey es User 
2 Filename : Fo BE veer. Name {I Mi ! et |. Fittt Et | petined 
: = passes waive Fe La 3 © ALS a i ve a es aa eee 
neal f= ofelt} & $1 i No 4 DIM 
te wafofo} & 8is 
royal "AUTO x/@ Constant or Edit Word 
ee) "412 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 
a 4 aale [aca as aaa all epouae 20 al TI HL ome NSS Nal 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70]71 72 73 74 
erT oo TTL IVE ITINTI LITT TTT TT TTT x PRE LoN BOLT eet A thee eal ole) cteale s(leae Seeheiuib aia 
oO ete see re Se Ge Se ELC ee dae a 
BOR OREM RARE S eA NERA AREER EAE R ERAGE SRR SERRE ERR eA 
let TO TTT TIN TT TTT TET AEE EEE EEE vba eS HARARE RESS RRS R SAEED 
cara El a : SRGRRRGERRE 
Name of output file EG 
containing records aa 
you are describing |] | | 
Hie cc ea en Ree eee 
Doe: RRRRRRERE SARL ER REESE REET Tee Eee eee Ree e ae 
He: BREESE eae AER Ra REE aR RSE ECS ETRE ee eee eee 
tp pt pep te 


For a printed report, you make additional entries describing the format of the 
report; that is, entries indicating the spacing and punctuation you want. These 
entries are discussed later under Printed Reports. 


The printer spacing chart and record layout forms are useful when you are 
writing output specifications. The record layout form shows the organization of 
fields on a card or disk record; the printer spacing chart shows the format of 
printed records. 


File Names 


You indicate the output record you want created and the device you want to 
create the record by entering an output file name in positions 7 through 14. 
Make sure the name you enter is the same (and spelled exactly the same) as 
the name you entered on the File Description Specifications form for the 
output file: 


RPG OUTPUT SPECIFICATIONS 
IBM internationa! Business Machines Corporation 


Program to Cc k Tr s] NSac ion Ke A iste Keying | Granic | =] | | ot fot Card Electro Number 
rome dohn Doe [oe tfiof-- | =~ [mw | | |||). 
EO: Esso 


CES veer | Commas No Sign | CR 
File aenenOD Specifications 





















1 2 
vel 


Fetch (F) 


Space} Skip Output Indicators 
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Filename 








File Type 






Mode of Processing 











Fite Designation 
End of File 


Length of Key Field or 
of Record Address Field 



















Filename Sequence 


Form Type 


Device 





File Format 
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Record Type 


Three different types of records that can be specified on the Output 
Specifications form are heading, detail, and total. You usually find all three 
types in a printed report. 











ACCOUNTS RECEIVABLE TRANSACTION REGISTER 


Heading 07/11) = PAGE O1 
Records 
CUST JOURNAL INVOICE CASH INVOICE JOURNAL 
DATE NO CUSTOMER NAME NO NO AMOUNT AMOUNT AMOUNT 
O7/LL/-- 759820 SOUND OF THE SEVENTIE 063426 $ 46.23 















OLDE VILLAGE SHOPPE 063421 89.70 





O7/11/-- 633870 








07/11/-- 642990 PARAGON TV SALES 063422 20.30 











122620 CANNIZONI STUDIOS 063422 129.76 





07/11/-- 











Detail 











O7/11/-- 682030 RAYMONDS RAPID REPAIR 
Records 
O7/11/-- 742950 SARATOGA VARIETY 29.72 














BAKER BRADLEY & CO 










07/11/-- 014280 





07/11/-- 872060 UNIVERSITY ELECTRIC 











VILLAGE MUSIC & TV 07-036 $18.23CR 





O7/11/-- 883290 





07/11/-- 006280 ALLSTONS 07-037 10.70CR 












Total é 
Record % 


$234.77* $285.99% $28.93CR* 






TOTALS 


Heading records are printed at the top of a page. They include report titles, column 
headings, or any other information needed to identify the kinds of information found in 
the report. 


Detail records contain information about an individual item. Information in a detail 
record is often taken directly from an input record. 


Total records are written after a group of detail records. They usually contain data that 
is the result of calculations on information in a group of detail records. 


To specify record type, place an appropriate entry in position 15. If the printer 
spacing chart was properly filled out, you can refer to it to determine record 
type: 


These entries specify the record type: 


| ———— Heading Record 





Refer to the printer spacing chart 


is as 
to determine the record type: Detail Record 


Record Type 


: —_———"— Total Record 


Ti? ela i 
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ERGEEEE TX XIX / XX! Coo Page ee 
CIAHUBUUDAN DOAGEEEGSBOGRSESGEGSEOBERE Ht SIGAAAEGIOR —— 
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RPG Programming Language 29 


30 


Field Names 


To specify the information to be placed in each output record, you must name 
each field to be included. You specify these fields on separate lines of the 
Output Specifications form in positions 32 through 37. Begin the list of fields 
one line below the file name: 





IBM .....n. RPG OUTPUT SPECIFICATIONS 


@ Business Machines Corporstian 
Pero | [| |] [J J csticeve nome 
[ress oe tin Pee 


















ra 
—ts 
Wis Output Indicators Zero Balances 
bg 
: 1 Feld Name (> [commas | rr LN 
Ol= 
7 ris 
g Filename rs =18 EXCPT Name ye i 
2 or STAs a Yes 
Record Name 
Line § fofete § 3 = No No 
fAjo}o} & 8 5 
LOTR] * AUTO s Py Constant : 
w OF-e 423 45678 91011 
3°94 547617 8 9 10 11 12 13 8 20 SaanENG 41 42 43144145 46 47 48 49 50 51 52 53 54 55 56 
PPLE LLLEETLEEEEEE EEE LEE LE LEE ELE LE RERSERRRSASERS 


When listing the fields, make sure you enter a name that was previously given 
to a field (for example, a field named on the Input Specifications form). If the 
name you enter on the Output Specifications form is not one previously used, 
the compiler will not know what information you are referring to. 


Field names are used to create the output record in the output storage area. 
Information is placed in the storage area one field at a time in the order you 
list them on the Output Specifications form. 


Field Location 


To specify where you want fields placed in the output records, you make an 
entry in positions 40 through 43 (End Position in Output Record). This entry 
must be the exact position where the last character in a field should be placed 
in the output storage area at the time the record is being created. The entry is 
easy to determine if you use a printer spacing chart or record layout form. 
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COG: BUBB RRB NEB AB RE TTT TTT TT eluistrinlol | TT bit ATT TT ETT TTT 
TEE iel TT tse VET TT ET 

CONC HHASRGRSROREEE LTT TTT Tyeinigclel | ITT del TTT 

eT TT de TT te 

Rha Shae eReaRREeEeee 

CPi 





a - a Stkr #/Fetch (F) 


Filename 
or 


EXCPX Name 


Sen {H/D/T/E) 


Record Name 


Before 


P/B/L/R 
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PRINTED REPORTS 


When your output is a printed report, additional entries are needed on the 
Output Specifications form to make the report easy to read. Information must 
be neatly arranged in rows and columns with adequate space between items in 
a line and between lines. 


Spacina 


Your field location entries (positions 40 through 43) control space between 
fields, but to control spaces between lines you code positions 17 and 18 
(Space). 


You can have the printer singie, doubie, or tripie space between lines by 
entering the number 1, 2, or 3 in the appropriate positions. If you enter the 
number in Space Before (position 17), the printer spaces before printing the 
line; if you enter the number in Space After (position 18), the printer spaces 
after printing the line. You may enter numbers in both positions 17 and 18. By 
specifying three spaces before printing and three spaces after, you can have 
five blank lines between printed lines. The printer spaces three lines after 
printing a line, then spaces three lines before printing the next line. This next 
line is then printed six lines beyond the last line printed. 


IEM Internatona Business Machines Corporation 


Printed in U.S.A. 
| Graowic | ||| ore 
identification 


| events | | events | 
— Name 


i 
i 
* 
- 
215 
o 





or 
Record Name 


EXCPT Name : 
= Zero 
i Suppress 
ae “AUTO : Constant or Edit Word 
123 4 5 8 7 & OB 1071 1213 3415 1617 18 19 20 21 22 23 
re eiashaaiahe ale 19 20 32 33 34 36 36 37/38/90/40 41 42 43)44145 46 47 48 49 50 51 52 53 S54 55 56 57 58 59 60 G1 62 63 64 BE 68 G7 68 8G 70]71 72 72 74 


tbecsseeft tee. ERROR ERA R ERROR OC SRERETAREE SAREE 
TOT TTT deluistrinfol TTT tale TTT TT TTT 
eT aie TT sisi TET ET ET 


[alse airean {H/D/T/E) 


B/A/C/1-9/R 


Baeerea 
Weel TT TTT TT eiiselel TTT telat TTT TT 


oon HE EE Hee BES SURES , RCRA ERER SERRE RRAARE ERE EOEN 


Oi tit 
GUE: RSA BR BARRE RBAE To single space the detail lines of a report, a Space ‘SERPLERERGRERRRARERE 
ole OPT ET EET LL 
BOE BERR se eR AWEReaE 
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Skipping 


You can use Skip entries in positions 19 through 22 to control spacing 
between lines on a page and to control printing the first and last lines on a 
page. A skip can be made before or after a line is printed. You indicate this 
by coding the skip in either positions 19 and 20 (Before) or 21 and 22 (After). 
The entry you place in these positions depends on the type of printer you 
have. 


In this manual, we discuss and show examples only for printers with tapeless 
carriage control. If your system uses a carriage control tape, you will find the 
appropriate entries for skipping in the RPG reference manual for your system. 


The Skip entry for a printer with tapeless carriage control can be any line 
number (1 through 112) on the printer paper. (The standard 11-inch printer 
paper has 66 lines per page when six lines are printed per inch.) A Skip entry 
in positions 19 and 20 indicates the line to which the printer skips before it 
prints the next line. | 
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Printed in U.S.A. 
75 76 77 78 79 80 
Keying | Graphic | | || (ie as Card Electro Number Program BEReee 
eo ee ee oe a 

















Output Indicators ESSER ARERR RC RRO ee X = Remove 
Field Name [ky ~” to Print Plus Sign 
- §-9= 
: Y = Date 
eg Fisid Eaiy | User 
K 2 = Zero Defined 
ve Suppress 


And And 
Constant or Edit Word 
‘12 3 4 5 6 7 B 9 1011 12 13 14.15 16 17 18 19 20 21 22 23 24 


3 
A 
394 S76)7 8 § 10 11 12 13/14 32 33 34 35 36 37438490] 40 41 42 42144] 45 46 47 48 49 50 51 52 63 54 55 B6 67 58 $9 60 61 62 63 64 85 66 67 G8 OO 70171 72 73 74 


PTT lolrellolen CM Ta TTT TTT TTT TT 
ePTFE TTT TT TTT TTT TTT ei5) P irieanisineriniont IReloleir’| || |i TTT TT 
lo HERRERA EEREEREE RSG FRED URSE RETR RETA AAR oR 















Filename 
or 
Record Name 


or : 
EXCPT Name |: 
















End 
Position 













B/A/C/1-9/R 













a Ea 
SETH Het 


GUA: RARRERHEEEEEBEE \nntnn 


To print a heading on line 10, a Skip specification of 10 in positions 


ofa] fo Pa elec 19 and 20 must be made. When this instruction is executed, the EERERRRaH 
ols of TTT ITIL TT) printer skips to line 10 and prints the heading. poor 
Te oT EREEROERSE 


Printer paper is not rolled backward. If the printer is on line 50 when the 
program issues a skip instruction to line 10, the printer skips to line 10 on the 
next page. 
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Editing 


Editing is a means of punctuating numeric fields by adding decimal points or 
commas or by indicating negative values (by a minus sign or a CR). Editing can 
also suppress the printing of leading xeros (in the number 00149, 00 are called 
leading zeros). 


When a numeric field is read into storage, it contains no decimal point or 
commas: when an unedited numeric field is printed, it anpears exactly as it is 
in storage. A large number printed without commas or decimals is hard to 
read. 


Furthermore, an unedited field may not be meaningful when printed because of 
the way the system stores negative numbers. The system uses the last digit in 
a numeric fieid to indicate sign (pius or minus). if the fieid is negative, the 
system combines a minus sign with the last digit. When a negative number is 
printed unedited, the combination of digit and sign appears as a letter. For 
example, minus 6439 prints as 643R. On the other hand, a positive field has 
no sign (a numeric field that does not have a minus sign is assumed to be 
positive). A positive field, therefore, prints normally. Positive 6439 prints as 
6439. 


The compiler can provide instructions to edit in a number of ways. All you 
have to do is enter an edit code in position 38 of the Output Specifications 
form. Many codes are available, each indicating a different type of editing. 
Figure 8 shows the codes and the editing done for each. Figure 9 shows some 
examples of editing. 


Note: When you edit a field, you often add characters to it. When printed, 
the edited fields require more space than they did on input records or in 
storage. When specifying the end position for an edited field, always take into 
account the spaces needed for the punctuation that will be added. The printer 
spacing chart shows the amount of space needed for the edited field. 


Sign For Negative Balance - 
Commas Decimal Zero Print Out On 


.0O or O 


=| p= | 
fe fae 


The X code removes the plus sign of the field. 
*The Y code is used for date fields. It suppresses only the leftmost zero and puts slashes 
in a three-digit to six-digit field according to the following pattern: 
nn/n 
nn/nn 
nn/nn/n 
nn/nn/nn 
3 The Z code removes signs and suppresses zeros. 


Note: The edit codes shown in the first column are used in position 38 of the Output 
Specifications form to punctuate the field named on the same line. Only numeric fields 
can be edited. The decimal point is automatically inserted in the correct position. 





Figure 8. Edit Codes 
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Field Length’: | 

and Digits a pm | ora 

Field Positive Negative Zero with | Zero with Positive 

Character- Number with Number with Two Decimal | No Decimal Number with 

istics Two Decimal Two Decimal Positions Positions Three Decimal 
Positions Positions Positions 
17,695.32 | 0 | 41.345 | 









17695.32 41.345 





17,695.32 .02CR 41.345 


Note: This table shows the effect of editing on five different fields. It 
illustrates what will be printed by using each edit code on the fields. 





Figure 9. Examples of Editing 


EXAMPLE 1 (TRNREG): PRINTING A SIMPLE REPORT USING THE THREE 
BASIC CYCLE OPERATIONS 


Program Definition 


Print a report listing all items sold during a week. The selling of an item is 
known as a transaction, so the report is titled Transaction Register. 


During the week, a transaction file is created. At the end of each day, 
transaction records are created from information obtained from order forms 
received during the day. To get the printed transaction report, you list the 
information from all input records on the printed report. 
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Program Requirements 


Input: Sales transaction file consisting of 96-character records. The format 
of the input records is shown on this record layout form: 


send Tten | Item _ | aa | 


Sac. Deseription luantity| Trice 










iTeqsts[s Te [7 [a [9 fou fie] isles [ie] 





i718 [19 120/212 





23 24] 25 26 |27| 28/29 | 0 32133 


| | 


341 35/36/37 13839 


40|¢ Ml sas ete. 


Two decimal positions 


Output: A printed transaction register: 


413910 CHOO!L BUX 100A FLUSH 
412146 CH148 BREAKER 15A 
411116 1500 TWIN SOCKET B 
9943029 MOTOR 1/2 HP 60 CYC 
317802 TERMINAL CLIP 

326917 TERMINAL BAR 

4ll1l2l 1506 SOCKT ADAPT BRN 
412997 CH173 BREAKER 304A 
413988 CH176 AREAKER 604A 
+lLL1l 74 Cl15i STL SWITCH RRN 
413990 CHOO5 BR BOX L50A 
718326 FCBU3 FUSE 15A 





This printer spacing chart shows how the report is formatted: 







eset iat aa anne fain 
Pichi kicce id ta ck 


Stier TEM || LOUTEM DESCRIPTION) | (QUANTITY ) CAR] Cocaine 
BEES RRASERKERE ERRUOP TPP pa EESREZESCES 


eee ee SRRERE ran ECE SHORE 


nel CO 7 abanae 
























AM LLL LL le HHH SUCUEUEREARER SUEUR BRREMOEHE 
mi sige spree ar UEC CL EM ABSS SSRERE DOES ST ARERRBE BGO EOOEED 
FRRTEESERRE a sUMeROAET SREGRTED r Be 










9} | ERGSEE 
pel COUT 
ee 
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Program Specifications 


RPG CONTROL AND FILE DESCRIPTION SPECIFICATIONS GX21-8092_ UM.050" 


=== = Printed in U.S.A, 


SSSSTE in nternational Business Machines Corporatio 
Card Electro Number 
ite come 
Instruction a 


Program on Re ale = 
roomme John Doe [> Yrol=— Pe PtP ttl 
Control Specifications 
File Description specifications describe the files used: one input and one 

wumve | OUtPUt. The input file, consisting of 96-character transaction records, is given 
frist | the name TRANS. | in position 15 indicates input file; P in position 16 indicates 
primary file; F in position 19 indicates program described file; 96 in positions 
24 through 27 tells how long the records are. The device used to read the file 
depends on your system. The output file is a printer. The file name is 
REPORT. The output records are also program described. The print line 
(record length) is 96 positions long. 






75 76 77 78 79 80 


1 2 
Program 
es 2 __—s Identification Tv enRes 

















For the valid entries for a system, refer to the RPG reference manual for that system. 


File Type 





Notice that entries have been made in positions 1 and 2 and in positions 75 

through 80 in the upper right corner of each form. The page number (positions 

1and 2) and the line numbers (positions 3 through 5) help you keep your 
specifications in order. These numbers are keyed in the source program. 

tear | | Positions 75 through 80 identify your program. 


File Designation 


End of File 





Sequence 





Filename 





File Format 


F/V/S/M/D/E 





1/0/U/C/D 


mk P/S/C/R/T/D/F 
aE 


[|e A/D 
pa fe 


External Record Name . K Option Entry | < cc 


- 10 11 12 13 14 415 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 


2 
ray 
£ 
Ms 
6 
| fe FIrelaws. || | Ir 
| (rigeeioer | fo 
A 





— 


47 48 49 50 51 52 [53/54 55 56 57 58 59 |60 61 62 63 64 65(66}67168 69} 70] 71 72} 73 74 





n 


IBM, | | RPG INPUT SPECIFICATIONS S(t 
7 ntecnational Business Machines Corporstion se Printed in U.S.A. 
Program Transac: 10"N Re 1$t er Keying | Grapric | =| 6] tl tT Card Electro Number Program 15 Frirpuie & [él 77 78 79 80 

[roman John Doe [ow vrof-~ meron | xv f | | | | td | reilzl* eon TRL NR 










Field Location 
Fea a 
or 
Record Name ie eee ee ae ae To APG 


External Field Name Field 
1 A epee Indicators 
|S B : : S- 
. a 
i B C3 £. Plus [Minus| or 
Data Sia ‘ : 
Structure ale . i 
Name t 
245 7 8 9 10 11 12 alabets 19 201/21 22 23 24 1128 29 30 31 42/43|44 46 46 47/48 49 bu 51/52)69 54 65 56 57 5/69 80/61 621/63 64) 85 66187 ag] ao 70}71 72 73 74 


—o 
oT neal TTT L@ LI 
PPC ede 
Cat ial rem Ce 
zs] [Taal peeled (Oh 
iat | rida CC PE er 
ao Molen | UTP TT LTT 


BREES 
RESSARRRA DERE RR RV RSEEaE 
PENS esl le ig elaieval at eres 
PER RR ECR ER RARE REGR a 
PETHRRES TERR CREASES 
Pee eee ate lea aed M beth 
PRPERR OE RUERGEREE ARES 
A Tle isl lad lel deee ll alee 
fe ea SES ae 
ODREERDERRB BERG ESERES 















Matching Fields or 
Field Record Retation 


Chaining Fields 





C/Z2/D 
Character 











Nn 
@ 
i) 







ae specifications describe the input records. The input file name 
must be the same as the name given to the input file on the File 
Description Specifications form. Fields on the input records are 

| then described. Most of the information for describing fields is 
taken from the record layout form. The record contains five fields, 
all of which are needed for output. Therefore, all five fields are described, 
starting one line below the file name. Field description entries include field 
location, field name, and decimal position, which indicates type of data 
(character or numeric). Any field to be used in arithmetic operations or 
edited must be numeric. The Output Specifications (page 40) show that 
three fields are edited. Therefore, on the Input Specifications three fields 
have an entry in position 52 to indicate numeric fields. 











































Note: The record identifying indicator (entry 01 in positions 19 and 20 of the Input 
Specifications) is needed to get correct output. It will be explained later under Example 
5 (STOKST): Using Record Identifying Indicators to Process Different Record Types. 
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IBM international Business Machines Corporation 









Printed in U.S.A. 


RPG OUTPUT SPECIFICATIONS GX21-9090 _UM/050° | 


75 76 77 78 79 80 


1 2 
Page af ies 7 IRIMRIE |G 









norm Transaction Register | vm ee 
Programmer John Doe, om Instruction ae pd 
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O G{Space] Skip Output Indicators Zor Balances oe ont ENIOE 
a3 Field Name to Print Plus Sign 
= ate A A TT A A EE 7 . 
5 2 oe : . ey Edit 
wi t 
Fitename SRI Sis EXCPT Name 
Line or = BE = End 
& = ai Position 
© Record Name 2 e1s 
5 ofel | 8/2) in 
- oOl~ 5 
E [A] D] D. O1O} Output Constant or Edit Word 
5 FO} R| I | = < Record 
A = / | = + 4°23 4 5 6 7 B 9 10111213 14 15 16 17 18 19 20 21 22 23 24 * 
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Output specifications describe how an output record will look. The output file is 
named first. D is entered in position 15 to indicate a detail line (one printed for 
every record read). The 1 in position 18 specifies single spacing. All fields to be 
printed are now listed, one per line, starting one line below entries describing the 
entire record. End Position, taken from the printer spacing chart, is given for each 
field. Again, according to the printer spacing chart, three fields are to be edited. 
DATE needs slashes (edit code Y), QTY must be zero suppressed (edit code 2), and 
PRICE must be zero suppressed and punctuated with decimals (edit code 3). Edit 
code 3 instead of edit code 2 was chosen for the PRICE field because PRICE, being 
a five-position field with two decimals (xxx.xx), needs no commas. 
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Note: The record identifying indicator (entry 01 in positions 24 and 25) is needed 
to get correct output. It will be explained later under Example 5 (STOKST): 
Using Record Identifying Indicators to Process Different Record Types. 


Writing Specifications for Calculation Operations | 


Most programs require some processing. In RPG, processing can include 
calculating, comparing, moving, or changing data. In this discussion we 
consider only calculating arithmetic results (adding, subtracting, multiplying, and 
dividing). 


Program Cycle Operations 
When you specify a calculation operation related to each input record 


processed, you are adding one more operation to the basic program cycle: the 
detail calculation operation (see Figure 10). 


START 






Perform detail 
Output operations 





Perform detail | 
calculations. 











Move data from record selected at 
beginning of cycle into processing area. 





Read a record. 






Program | 
Cycle 





Note: This is a basic program cycle showing the addition of detail operations. Because 
this is a detail operation, it is performed during every cycle for every record read. 


Figure 10. Program Cycle for Detail Calculations 
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The Calculation Specifications form is used to describe the operations you 
want performed. Information needed includes the type of operation to be 
done, the field(s) or constant to be used in the calculation, and the location 
where the result of the calculation is to be placed. You fill in the indicated 
positions: 





~ RPG CALCULATION SPECIFICATIONS euauae 


F Printed in U.S.A. 
“ft 
cone ome T TT TTT] ] ection | Teen fT a 
Frogenme doe id etn Pe PP TY EE : crvteion LL TT ET) 




















Resulting 
1 Deieetors 
















Factor 2 | | 
| an ory revel, 





Comments | 


| 
| 
= |Lookup(Factor 2}is 





Hal vai Adjust rt 


=| High Low jEqual 
21 22 23 2a\25 26 2728 29 30 31 32533 34 24 36 37 3B 39 40 41 42/43 44 45 46 ¢ whe so of Eee en the 0 ooo 65 66 67 68 69 70 71 72 73 74 


Teri \GRSRRRELY CARALRRAAERERS x. 2 oR REE RRR RE REELS 
Pte TE Sg HERG AGIs a Ssh te Sh STEEAECORSDSEREEEEUOUEE 
Se ERERG BERZERRREREED 
te BEDE BRRERRREREERA 


RORCHIRSR RRR ERRER Datatobeused {|| [| |] Wheretoputresult (17 TT TTT TTT TT 
ete tT ttt tT Ly in operation ans and in what form SIRUGAEEGIRLG 


| 
is a ae to leave it 
eri Tete ee : 








GOW Hs AMO KAGFORARAGGOGUOGUGEOEAGMAGROGOGGSEQKIO00 00000001 0A00EERREAEEUEE 
C E PREG EERS ae ll 











| 
DES RARE AREAS RRR RRR E REAR e SAAR ER RETA RARER ERE RRR ERA DERE ene 


BGA BRS e RRS SAEED HRA NESRA AEB ERERSERAERRRR REESE sCRRRREERE ‘i Ol& BZ 9Q iE Boe € id 1 





Specify one operation per line. In each program cycle, processing steps are 
done in the order you specified on this form. If calculations must be done in a 
particular order, you must list the operations in that order. 
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DESCRIBING TYPE OF OPERATION 
To indicate the type of calculation operation, you enter one of the following 
operation codes in positions 28 through 32 on the Calculation Specifications 
form: 
ADD (add) 
SUB (subtract) 


MULT (multiply) 


DIV (divide) 


DESCRIBING DATA TO BE USED 

After you have specified the type of operation, you must identify the data to be 
used. If you specified ADD, for example, you must tell the system what to 
add. You do this by naming the fields to be used in positions 18 through 27 
(Factor 1) and 33 through 42 (Factor 2). 
Instead of naming a field in Factor 1 or Factor 2, you can enter a constant; that 
is, you can enter actual data instead of the name of a field containing the data. 
For example, you can enter either of the following: 

500 Constant (actual data) 

AMOUNT Name of a field containing data 


Constants can be either numeric or character, but here we discuss only 
numeric constants. The rules for using numeric constants are as follows: 


« Constants can be up to ten numeric digits (O through 9). 
e Constants can have a sign and decimal point. The sign, if used, must be the 
leftmost character. The decimal point, if used, must be shown as part of 


the constant (for example, 4.12). 


¢ The first character of the constant must be placed in the leftmost position 
of the Factor field. 


e Constants cannot contain blanks. 
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The contents of a field can change during execution of a program, but 
constants do not. If you want to add, multiply, subtract, or divide the same 
number during every program cycle, you can use a constant: 





Resulting 
indicators 


Arithmetic 


+ i Plus [Minus! Zero | 
[Say <2pr=2| 


Add a constant 1 to COUNT at detail calcula- 
— tion time, thus providing a count of the records 


processed. 







| | Result Field 


| 








Factor Zz 


| Positions 


fuss Cay 


? 7 ; 
Factor 1 | Uperation : 


at 








Name Length | 


d 


a 





| 
| 






: cy |“—— Calculate the circumference of a circle by multi- 
vo plying diameter by the constant 3.14159. 


























Convert a units quantity to a dozens quantity 
by dividing QTY by constant 12. 


To the compiler, a constant is like a field name. During compilation, the 
compiler checks Factor 1 and Factor 2 for constants. If there are any, the 
compiler assigns a storage location for the constant and instructs the 
computer to put the appropriate constant in that location at the beginning of 
program execution. ) | 


Be sure to consider which fields you enter in Factor 1 and Factor 2, because 
the specified operation might affect the result. An easy way to remember 
where to enter the fields is to mentally replace the operation code with the 
corresponding arithmetic symbol. Thus, a subtraction is Factor 1 — Factor 2; a 
division is Factor 1 + Factor 2. 






ADD SUBTRACT 















Factor 2 is subtracted from Factor 1, and 
the difference is placed in the Result 
Field. 


Factor 2 is added to Factor 1, and 
the sum is placed in the Result Field. 





Result Fieic Result Fiele 

















Factor 1 Operation Factor 2 





Factor 1 Operation Factor 2 



















7418 19 20 21 22 23 24 25 26 27(28 29 30 31 32433 34 35 36 37 38 39 40 41 42/43 44 45 46 47 48}4: 


pinta oo awa TT arate 
AMT ADD BT 17 OTAMT 
a eee 


H | 
i : | i 





7418 19 20 21 22 23 24 25 26 27 }28 29 30 31 32]33 34 35 36 37 38 39 40 41 42]43 44 45 46 4 


Tora || SUB | epvct || \prFF | 
pEDUCT SVB TOTAL | OIFF 
ESOP ES MUGNURTA CEES ORE ANNE IEEH 


' 'The field from which another field is 
being subtracted must be entered in 
Factor 1. The field being subtracted 
must be entered in Factor 2. The bottom 

line will not produce the desired result. 






















Either line adds the two amount fields. 

[t makes no difference which amount 
field is entered in Factor 1 and which 
in Factor 2. 





DIVIDE 





MULTIPLY 










Factor 1 is divided by Factor 2, and the 
quotient is placed in the Result Field. 
Factor 2 cannot be Zero. 






Factor 1 is multiplied by Factor 2, and 
the product is placed in the Result Field. 









Result Fieia Result Field 




















Factor 1 Operation Factor 2 





Factor 1 Operation Factor 2 












7418 19 20 21 22 23 24 25 26 27428 29 30 31 32]33 34 35 36 37 38 39 40 41 42]43 44 45 46 47 48]49 


HOURS it Rare _BaSrey 
coo ae he _GRSPAY 
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omy tit {| bry [Wall TT {11 pozeM 
ra Oey ery Cc plow 
ea A a 


x) 
















The field being divided must be pane 
in Factor 1. The field by which Factor 1 
is being divided must be entered in 
Factor 2. The bottom line will not 
convert a units quantity to dozens. 








Either line multiplies the hours and rate 
to obtain the gross pay. It makes no 

difference which field is entered in Factor 
1 and which in Factor 2. 
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DESCRIBING THE RESULT FIELD 


You must specify where you want the result of a calculation stored by naming 
that field in positions 43 through 48 (Result Field).. The name you enter in the 
Result Field can be the name of a field already defined on the input or 
calculation specifications forms or a new field. 


You would not need to name a new result field in these two situations: 


e The contents of an input field are no longer required in your program, and 
the field is the correct size. 


e The contents of an input field or a result field defined elsewhere on the 
Caicuiation Specifications form are to be repiaced with a new value. 


If you name a new field, you must specify field length (positions 49 through 
51) and decimal position (position 52) so the compiler can assign adequate 
storage for the new field: 


—— 


IBM RPG INPUT SPECIFICATIONS 


_—— 


IBM RPG INPUT SPECIFICATIONS 






ror [oeme | [| [| | [| |_| cvtwvonme] 
rower [ev | 111111) _ i 





RPG 


RPG 
Field Name 


Field Name 
| Data Structure Structure 


a 
n Times 
eceaan 521/53 54 56 646 87 58 


Position 


P/B/ R 


Name 
7 86 9 1041 T24RAL 37 38 


MLE 
tt Ul | st trieMlo - 
Tel ala Iolelelel || 








eT, CO aut ala 


DRE ESIRBRES 11) isl slolaleasm 





RPG CALCULATION SPECIFICATIONS RPG CALCULATION SPECIFICATIONS 


Card Electro Number Card Electro Number 
coving crevice | | | | TT | Keying | Graoric | | | | | | | 
el a ee a 


Factor 1 Operation 
Name Length 
18 19 20 21 22 23 24 26 28 2 38 40 41 42143 7 48]48 60 51/52 







Factor 1 Operation Factor 2 


imal Positions 


Md] Decal sai, : 


3 44 45 46 4 





am TTT) moein wasn TTT elas TV lor TTT pga Cos TT TT roiraet Tata 


The result field TOTAL is a new field because 
it is not defined on the Input Specifications 
form. Field length and decimal position entries 
are needed so that the compiler can set aside a 


The result field COST is not a new field 
because it is already defined by Input 
specifications. Field length and decimal 
position entries are not needed because 
the compiler already has this information storage area for this field. 
and has set aside storage space for the 
field. 
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Result Field Length 


When you name a resuit field, make sure you specify one iarge enough to hoid 
the results. Always consider the length of the fields involved in the operations. 
For example, if you are adding a two-position field to a three-position field, 
you must determine the largest result you could possibly have: 


999 
99 
1098 


Because there are four digits in this result, you would specify at least 4 as the 
result field length. 


rf ak. aan, a <a, om ee oe Yat a. ae Catt 


if this CaiGuiation OCCUTTeG Many times in your program, as in a running to 
you would probably need a result field length larger than 4. It is up to you to 
determine the largest field length needed; failure to specify a large enough 


result field can mean a loss of data. 


Decimal Positions 


For a new result field, be certain to place an entry in position 52. If the new 
field is to be numeric but contains no digits to the right of the decimal point, 
enter a zero. Remember, this entry indicates type of field (numeric or 
character) as well as decimal positions. The result field of an arithmetic 
calculation must be specified as numeric by an entry in position 52. 


Half-Adjusting Results (Rounding) 


In RPG, rounding results is called half-adjusting. When the digit to the right of 
the last digit you want to keep is greater than 4, 1 is added to the last digit. 
The number 3.14159 rounded to four decimal positions becomes 3.1416. The 
same number rounded to two decimal positions is 3.14. 


To half-adjust any calculation result, you place an H in position 53 of the 
Calculation Specifications form on the same line as the field to be 
half-adjusted: 


Indicators 


j Resulting 









Factor 1 Factor 2 


mo 19 20 21 22 23 24 25 26 27428 29 30 31 32/33 34 35 36 37 38 39 40 41 42/43 44 45 46 47 48]49 50 


PRICE |] | | MULT) Le | 1) | | IDZSIcw 


Operation 


High | Low | Equal 
54 55}56 57158 59)60 61 62 63 64 


Je 
Po ol 


In this example, DISCNT is half-adjusted. The entry in position 52 (Decimal 
Positions) indicates the number of decimal places to be retained after 
half-adjusting is completed. In this case, two decimal places are desired in the 
result. The multiplication and half-adjusting are done like this: 


74.98 ~— Assumed value of PRICE. 
x .06 ~— Constant representing 6% discount rate. 
4.4988 <— Result that must be half-adjusted to two places. 
1 ~«<— 1s added to 9 in the second decimal position because 8 in the 
4.5088 third decimal position is greater than 4. . 7 
Slashed digits are dropped because only two decimal positions 
are required. 








EXAMPLE 2 (TRNREG): DOING SIMPLE CALCULATIONS 


_ Program Definition 


Print a report listing all sales transactions for a week. This report is similar to 
the report created in Example 1. The only difference is the addition of the last 
column on the report, which. is the sales amount per item. Sales amount 
(quantity sold times item price) is not found in the input record and must, 
therefore, be calculated. 
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Mad 





Program Requirements 


Input: 


| 


Traneaction leem 


Sales transaction file consisting of 96-character records. The format 


of the input records is shown on this record layout form: 







Description 


Output: A printed transaction register: 


1/23/ == 
'/23/ -- 
7/23/ -- 
T/24/ 
T/24/ 
7/24/ 


7/24/ 

(/24/ oo 
/e4/ oe 
1/24/ 
1/24/ m= 
1/24/ 


#137419 
412146 
+11116 
9343929 
3178u2 
326917 
4lLil2l 
412997 
4139099 
4LIL74 
4} 39096 
718325 


CHOO1 BSX LUOA FLUSH 
CHIGP RRFEAKER L5A 
1500 TWIN SUCKET B 
MUTUR 1/2 HP 59 CYC 
TERMINAL CLIP 
TERMINAL SAR 

1596 SOCKT ADAPT BRN 
CHl73 PREFAKER 304A 
CHI7T6 BREAKER SJA 
C1St STL SWITCH BRN 
CHOUS AR GOx LSVA 
FLEES SJSe 15h 


[2] 3]4]5]6)7]8]9]io]n [12] i3fi4 is [te | 17] 18 |19 [20] 21 | 22] 23] 24] 25] 26 | 27] 26] 29] 30 31 [32/33 | 34] 35|36 37 |38|39]40] 4/42] 43] 44]45 /46 47 | 





Two decimal positions 


4290 
089 
Lbel2 
146.78 
5ei2 
Gel2 
el9 
L1el5 
LelS 
Lel 
498 
032 





This printer spacing chart shows how the report is formatted: 
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Program Specifications 


RPG CONTROL AND FILE DESCRIPTION SPECIFICATIONS 





= International Business Machines Corporation 


Program = Tranaach ion 










Number 


Size to of Print 


Execute 


Alternate Collating Sequence 


Date Format 


Object Output 
= Listing Options 
S Date Edit 


Debug 


=, Reserved 


= 
oi 
= 
fe] 


3.4 5§ 






File Designation 


End of File 





Filename Sequence 





File Format 


Record 
Length 


Block 
Length 








1/0/U/C/D 


4 





& 
> 
Ee 
= 
o 
ie 

516 


te 


0 
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Input specifications are th 
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Keying 
Instruction 
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5 External Field Name Field 
3 . Field Location dications 
Filename 3 3 Record Identification Codes = 5 
or ? 2 = 5 = 
Record Name “1215 From to |8 RPG = |/8a] < 
3 ~ = 3 = e & Is S] oo 
zi-. Es & Field Name s hi] 8 Zero 
S15 Ss Position Position £ S15 £l vo Blank 
Eleis z s j2é] 3 
Name = 3S = as “ 
3 4 Stel? 8 9 101112 17418119 20421 22 23,24 45 46 47/48 49 5u 51152/53.54 55 S86 57 58/59 60/61 62163 64/65 66/67 esleo 70]71 72 73 74 


because the same input file is used. 


GX21-9092 UM/O50* . 
Printed in U.S.A. 


75 76 77 78 79 80 


So Sane 


Program 
Identification 





1 2 
Page of 





Control Specifications 


For the valid entries for a system, refer to the RPG reference manual for that system. 


Reserved 


Reserved 

Sign Handling 

1P Forms Position 
Indicator Setting 
File Translation 
Punch MFCU Zeros 
Nonprint Characters 
Reserved 

Table Load Halt 
Shared I/O 

Field Print 
Formatted Dump 
RPG to RPG tt Conversion 
S/3 Conversion 
Subprogram 
Ctcs/DL/I 
Transparent Literal 


a 
= 
A 
AD 
; 
& 
Pa 
a 
£ 
ww 
cy 
co 
oy 
wo 
wn 
f=] 
wi 
2] 
uo 
on 
oO 


57{58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 





File Description Specifications 


For the yalid entries for a system, refer to the RPG reference manual for that system. 


Mode of Processing File Addition/Unordered 







Length of Key Field or 
ot Record Address Field 


Record Address Type 


The same files are used for Example 1. Therefore, 
the File Description entries are the same. 








Type of Fite Device 
Organization or 


Additional Area 







Overflow tndicator 


Key Field 
Starting 
Location 





Extension Code E/L 





1/X/D/T/R/ or 2 


R/U/I 










Tee E 


RPG INPUT SPECIFICATIONS 


GX21-9094 UM/060° 
Printed in U.S.A. 
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RPG CALCULATION SPECIFICATIONS | sidered A agiaed 


lnm International Business Machines Corporation : 2 


o 
Card Electro Number 
Resulting 


Progam Transaction Register keying | Graoric | =| | | | | | 
indicators Result Field lndicetars 


hacia Ee Ce CG DV 
| | 
Factor 1 Operation Factor 2 : i pines ere Comments 
Name Length : > 241<2[1=2] 
sl: 
Pala sessile 
18 19 20 21 22 23 24 25 26 27/28 29 30 31 32/33 34 35 36 37 38 39 40 41 42/43 44 45 48 47 48/49 50 51]52153/5¢4 55156 57/58 S960 61 62 63 64 8&5 66 67 68 68 70717273 74! «=~ 
eee tary vietrl lpiizicle| | Ht etresty ima 


QORCHREREE This specification tells the system what calculation to perform. QTY must be raid by Ree 
PRICE. QTY and PRICE are fields from the input record and are described on the Input | 
of?! jel | [| | | || Specifications form. Notice, however, that a new field, EXTCST, is created to hold the result. 





75 76 77 78 79 80 
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~ Control Level (LO-L9)}, 
o LR,SR, AN/OR) 












— Positions 


Line 





Form Type 








o 
> 
wn 
a 
















rie < ¢| | | | | | | We needed a new result field because we could not use any of the fields described on the | | | | | 
Input Specifications form. if we had used one of them, we wouid jose information needed 

ork Pc for printing the detail line. clad 
You must define any new field by describing field name, field length, and decimal positions. fa 
We chose the name EXTCST, an abbreviation for extended cost. Any valid name could be ae 
used. According to the printer spacing chart, the EXTCST field is 7 positions long with two gag , 

fs] fel TTT td decimal positions. We, therefore, used these figures when defining field length and decimal Sag 

tel del (PL Positions. LLL 

DUC HEREE iene eal cia 

TEM ne 2 a Sas iene Sa RPG OUTPUT SPECIFICATIONS eee 
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4 7 4a we d ‘a 
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Programmer 
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Filename EXcPT Name 


or 


"AUTO Constant or Edit Word 
+12 3 4 5 & 7 8 OB 1011 12.13 1418 16 17 18 19 20 21 2223 26 * 
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RECT pa 


3] lol | | | | This Output Specifications form differs from the one in Example 1 by only one entry. 
DORCHEE The field EXTCST was added because it is to be included in the output line. EXTCST 
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Writing Specifications for Indicators 


So far you have learned how to use the program cycle for producing simple 
reports. However, actual business reports would be more complex. They 
would include more information, have page and column headings, and probably 
include subtotals and final totals. 


A report like that shown in Figure 11 would require printing four different types 
of lines: report heading, column headings, detail lines, and total lines. Some of 
these lines must be printed only at certain times: headings would be printed 
only at the top of the page and totals only after all detail lines are printed. To 
produce the report correctly, you must use indicators to specify when you want 
certain things done. 


To you, indicators are two numbers or alphabetic characters you specify on the 
specification forms. To the object program, indicators are like switches, 
located in the system. They mean one thing when on, another when off. You 
can use several types of indicators; each type signals something different. 


To use indicators correctly, you must know how program cycle operations 
affect indicators. In this section, indicators are discussed one at a time. You 
will learn when to use indicators, how to specify them, and which program 
cycle operations are associated with each type of indicator. 


TRANSACTION REGISTER 


TRANSACTION 
DATE 


17237 = 


ITEM 
NO 


413010 
412146 
411116 


503029 
327802 
326013 
411121 
412997 
413088 
411174 
413090 
718326 


321071 
325781 
412146 
573022 


DESCRIPTION 


CHOO1 BOX 100A FLUSH 
CH148 BREAKER 15A 
1500 TWIN SOCKET B 


MOTOR 1/2 HP 60 CYC 
TERMINAL CLIP 
TERMINAL BAR 

1506 SOCKT ADAPT BRN 
CH173 BREAKER 30A 
CH176 BREAKER 60A 
C151 SIL SWITCH BRN 
CHOOS BR BOX 150A 
FC803 FUSE L1S5A 


2-SPEED SAW 
SATIN-CUT OADO SET 
CH143 BREAKER 15A 
6-VOLT POWER BATTERY 


QUANTITY 


SALES 
AMOUNT 


49.200 
89.00 
560,00 


698.00 


293256 
512200 
412.00 
76200 
69200 
46-00 
232-00 
49280 
64.00 


1s 754%e36 


28244 
39250 
44250 
28-90 


141434 


WEEKLY TOTAL 


29593270 





Note: This report is similar to those shown before, but note the addition of 
headings and totals. 


Figure 11. Printed Report 
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CONTROL LEVEL INDICATORS 


Control level indicators are used when you want to calculate and print totals. 
Nine different indicators can be used (L1 through L9), allowing as many as nine 
different levels of totals in the same program. The control level indicators tell 
the program two things: 


« When totals should be calculated 
e Which calculations and output operations are total operations 


A control level indicator in positions 59 and 60 next to an input field specified 
on the Input Specifications form determines when totals should be calculated 
and printed. This input field is called a control field. Whenever the contents of 
the coniroi fieid changes, a coriroi break occurs. A coniroi Dreak turns on the 
coniroi ievei indicator assigned to the conitroi fieid and aii iower coniroi ievei 
indicators. The system performs all calculations and output operations (total 
operations) that are conditioned by these control level indicators. If a control 
break causes L3 to be turned on, L1 and L2 are turned on. This allows control 
over several levels of totals and subtotals. Examples are daily, weekly, and 
monthly totals. | 


In Figure 11, the records are grouped by date, and a total of the sales amount 
field should be printed when the contents of the input record date field 
changes. 
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Comments 
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~ Control Level (L0-L9), 
“1 o LR, SR, AN/OR) 


® Form Type 
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X = Remove 
A 
Yes No B - 
No Yes Cc L 
me Su 
Record Na DB HE in No No D|] M ass 


TER International Business Machines Corporation R PG OUTPUT Ss P ECI FICATIO NS exz12080 | UM/O50 
=— kevin omer T [ [| | [| [cwttevonime | | ul | Pram PEPE 77,78 70,80 
navton Pee | | 1.1.1 LL of tmteaion LL TT TT) 
Plus Sign 
Y = Date 
Filename Field Edit 
me End Z = Zero 
. Position 
“tl TH se 
*AUTO Record Constant or Edit Word 
“423 45 6 7 8 S$ 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24° 
se slely es wus lttlelolele ale x Saat aes SS ee Ses SS eee aoe ee eee ee ab aa 
Gon: aM HRSA @)==-z-seaT Sith 









Before 
After 






B/A/C/1-8/R 















Control level indicators are specified at to tell the compiler when total opera- 
tions are to be done. They are used at to tell which operations are total 
calculations. With a T in position 15, they are used at(3) to tell when total output 
lines are to be written. 
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Program Cycle Operations 


Figure 12 shows the program cycle operations associated with control level 
indicators. The system can do calculations and output operations at two 
different times in one cycle: at detail time and at total time. Total operations 
associated with control level indicators are not done in every cycle; they are 
done during the cycle in which the control field changes. 


After a record is read, the program determines whether the control field in the 
record just read is different from the control field in the previous record. If it 
is, a control break occurs and the control level indicator you specified .is set on. 
When the indicator is on, it means that all records in the control group have 
been read and that total operations can be performed. Control level indicators 
remain on through the detail calculations and output processing of the record 


8 ee ee ee es ee eee ee ee an eye a faa 


- = FL. .. . ab Haw ~~ £F LHF ab —_f 2 
Causeu lle COMUUOL DICGR. Fey adie lei set Of VETS Lic FMeAL FOCUFU IS 


START 


















Perform detail 
output operations 


Perform detail 
calculations 


Move data from record selected at 
beginning of cycle into processing area. 


Set off control level indicators. 


Read a record. 


Program 
Cycle 





Perform total output operations. 









If change in 
control field, 
set on control 
level indicators. 


Perform total 


Figure 12. Program Cycle Operations for the Control Level Indicators 


Detail operations for the record that caused the control break are done only 
after total operations for previous records. The control level indicator assigned 
to the field that caused the control break remains on so that the first record of 
the group can be identified with that indicator. The record that caused the 
control break is not processed before the total operations are done, because 
information from that record would be included with information from records 
in the previous group. The totals from the previous group would then be 


wrong. 


RPG Specifications 


To specify a field as a control field; you assign a control level indicator (L1 
through L9) to an input field in positions 59 and 60 on the Input Specifications 


form: 


UT SPECIFICATIONS 


GX21-9004 UM/060° 
Printed in U.S.A. 
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et eee 


ae ee 


[T_T character 


| | | 18 Stacker Select 


L1, assigned on the same specification line 
as the date field, tells the system to use 


DATE as the control field. 


To specify which operations are total operations, you assign the same control 
level indicator in positions 7 and 8 on the Calculation Specifications form and 
in positions 24 and 25, positions 27 and 28, or positions 30 and 31 on the 

Output Specifications form. On the Output Specifications form, you must also 


enter a T in position 15. 
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OOS CHIERE , , , . Seeoeace 
ois! lel tt Use a control level indicator in positions 7 and 8 to show that a total operation is to be Gene 
els Ie done only when a control break occurs. The operations on line 01 and line 02 are aR GESea 
ert tel | TT | done during the detail processing of each input record. The ADD operation in line BE RERER 
OG BRaee 03 is a total operation that will be done when L1 is on; that is, when the DATE RaeRReE 
Plt Tel (TTT fiotd chamnes Beene 
yo} tet | tT I ERECRaS 
ert de ttt = BReTeae 
SEM oe, RPG OUTPUT SPECIFICATIONS at ree yal 
: | Graphic | | | | [ [ [4 Card Electro Number 2 Program Ze 76 77 28 78 80 
a ae ee ee deren 













? i aa commas | 22 Balene* Lo sgn | cr | — : 
: to Print 
Yes 1 Ai J Field Edit 
Yes No 2 8 K 
: iti No Yes 3 c L 
i Record Name : No No 4 DiM 
3 *AUTO . Constant or Edit Word 
z ‘ 42 3 4 65 6 7 8 9 1011 12 13 14 15 16 17 18 19 20 21 22 23 24 
cite lol ea caae eeteaataielal 19 20/21 22 a AORN SSAA EERE RRRRRRORGEERREERREEEE ERGO 


ery lowell ie Lal a ERE EEE EEE EEE EET 
RECEP PeECCEEEECEEEEE CELT Ua CL LTT te | | 

est To TTT TT TTT TTT TTT TTT ary | ist | 
SC HAASGRGEGRERGRORRRURERRROCCCCAEROEECERE 
OTT TTT TTT TTT TTT eeiestrtal | fais | 
neste a aes tds ate a 

UTaT. 

SR ERLRRIRRRHGan 


Output Indicators 















hugs one Pius Sign 















EXCPT Name 





Filename 
or 












/A/C/1-9/R 



















The T in position 15 indicates which output B 
records are total records. Every total record 
should also have an indicator specified to tell 
the system when to do the operation. The 
output operation described on lines 06 and 
07 is done only when L1 is on. 























Sr artnet a 
Litt AC EEDES SIGE ERE EEr Ease obi E SEI VEE SE UISDr ELE EGELT: 
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You can specify up to three different indicators on a line on the Output 
Specifications form. If you are using only one indicator, you can enter it in any 
one of the three positions. The control level indicators specified on this form 
can be used to condition an entire output record or only certain fields in the 
output record. 


RPG OUTPUT SPECIFICATIONS Gx21-9000._UM/O50" 


ITEM International Business Machines Corporation Printed in U.S.A. . 
dic Keying | Grapric | | | ||] card electro Number eroaram (PEO 2778 7080 





icaweion Tey | | 11111 retin 


HES Output indicators 


© 
2 
AE 
ae 










Field Name 


on ei (F) 











Filename 
or 
Record Name 


EXCPT Name 4 





Line 







Constant or Edit Word 
‘42 3 4 5 6 7 8 9 1011 12 13 14 15 16 17 18 19 20 21 22 23 24 * 
38]}39]40 41 42 43144145 46 47 48 49 50 51 52 53 54 55 56 57 58 59 GO 61 62 63 64 65 66 67 68 89 70171 72 73 74 


papel 
PET ploumelrr | Ila) rat RRRARE RR ERR REE RAR RES EEASRRReaE 
lt TTT TTT TTT TG Tee ore PET Te TET TTT 
ele} To TTT TTT TT eri Tt eT als TT EEE TT 
CT TE ee 
LETTE TTT ATT TTT TT Tt etwrielstr tt tals TTT TT TET TTT 
TTT pr hla ay Te TT atid ge} tp 
oof 


B/A/C/1-9/R_- 










TELT TTT TT TTT TT Ipaniriorie [vist TT TTT TTT TTT TTT TT ETT 
PECL PEEL PELE CEE 
oT TT TTT CRSSREUaGae 








{A control level indicator specified on the same line as the field name (1) eevee 
|| indicates that the field should be written only when the control level Tease ibl 
indicator is on. Indicator L1 is on at detail output time only for the PRE 
ioe Ensenada eee first record of each group. This record is the same record that caused the ile ecye lel 
tele dol | |} yf | | [|] |] control break and allowed the total operations for the previous group to TCM eecle ke 
take place. DATE prints only on the first detail line of each group. This HH | || [|i [i ||| 
use of the indicator is sometimes called group indication. However, a CRREREReSa 
control level indicator = on the same specification line as the line Spe pop 
type entry in position 15 (2 ) indicates that the entire line should be 
‘Te lo Tt LETT tl written when the control level indicator is on. SERERSREEE 
REREEEEEEE 






Peel ee 





a a a a a a a Pr a | L {| 


Using the Blank-After Specification 


In RPG, you can set fields in storage to blanks (in the case of alphameric 
fields) or zeros (in the case of numeric fields) after they have been written out. 
You do this by entering a B in position 39 of the Output Specifications form. 


This is a particularly useful feature when you are doing total operations. It 
allows you to use the same field over and over for accumulating and printing 
totals. For example, you could use a numeric field to accumulate totals for a 
particular group of records. After the totals are accumulated and printed for 
that group, you can use the same numeric field to accumulate the totals for the 
next group of records. To do this, place a B in position 39 for the total field. 

If you do not place a B in position 39, the totals for the second group of 
records would be added to the totals for the first group of records. 
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EXAMPLE 3 (TRNREG): USING CONTROL LEVEL INDICATORS TO 
CALCULATE AND PRINT TOTALS 


Program Definition 


Print a weekly sales transaction report that lists all daily transactions and gives 
the total sales for each day. This report is similar to the reports produced in 
Exampies i and Z. Aji items soid each day are iisted. item number, item 
description, quantity sold, unit price, and sales amount (quantity times unit 
price) are included for each item. The date is printed only for the first 
transaction encountered that has a new date (the date is used as a group 
indication). The total sales amount for a day is printed after all transactions for 
that day have been recorded. 


Program Requirements 
Input: Sales transaction file consisting of 96-character records. The records 


are arranged in ascending order by date. The format of the input 
records is shown on the record layout form: 


Transaction | [tern Item Unit 
a. mine samen | Price 
| 


112] 3/4 {s]el7[s]s fifi fiz] isl [is fie] 78 [19 [20] 21] 22] 23] 24] 25] 26] 27] 26] 29] 30 [31 [3233 [34] 35]36]37 |38] 39] 477 at [42| 43 [4445 ]46]47 [48 


Two decimal positions 


Processing: 
e Multiply quantity times unit price to find sales amount. 


« Find total of all item sales per day. 


Output: A printed transaction register: 


Group 
Indication 


T/23/-- 413010 
412146 
411116 


T/24/ > 503029 
317802 
326917 
4lliel 
412997 
413088 
GEL1i74 
413090 
718326 


CHOOL BOX 100A FLUSH 
CH148 BREAKER 115A 
1500 TWIN SOCKET B 


MOTOR 1/2 HP 60 CYC 
TERMINAL CLIP 
TERMINAL BAR 

1506 SOCKT ADAPT BRN 
CH173 BREAKER 304A 
CHL76 BRcAKER 608 
Ci5i SIL SWITCH BRN 
CHOO5 BR bOX 150A 
FC803 FUSE LSA 


10 
100 
500 


é 
100 
100 
400 

60 
40 
200 
10 
200 


4-90 
089 
leld 


146278 
5012 
4el2 

019 
1el5 
1e15 
1216 
4298 

e32 


49.00 
B9e00 
560-00 


698.00 


293456 
512200 
412.200 
T6200 
69.00 
46200 
232200 
49280 
64200 


1¢754%e36 


This printer spacing chart shows how the report is formatted: 


TITTLE STU UIU aa eI pata st a 


SMnMICHE AEE He HSAUAAHRAITOGICGGEOGEIGGUGAILOREOGTUGGLGGEG SIUGINGBUGHLGAEUGATGILGGEUGAUGIUGE 

HERREOODEARRAESESERTARTAREROORE PUGTOEAAGHATR GAM ATE RRA TRGERRARIAATATRATHRARAR EEL AATA Ee 
CNDBSAASSUGBRUGGROGROEROROGROGEOSOEEE a W HEURBGOEUROROGGGURIOUGGREIGRESOOEERGROGE LAT 
ScHASHAUSUAGGBANGES¥GUOVGBSUENSUUGHGONGUGOREGVSESUEBEROHSBURESUARISOBAHSHOVSUGUESUOUSSUSIEND 
Distt TT PAM TT TTX TTT XOX ODI ANA | TK SAN AAA RN a at 
CC AMNNANGHAEGAOUSHUESUSUSHNAAANGCUSHEFUSEUSESEASEUSCAESEEAEUEG SUSSSNINAELNEAEOHECU SSALES! 
SHUT CDA TET TY Te AW UMAR) | TTT Cea DIES CR/PTVOA) (QUANTITY (PAY C ET | a a ATL 
KONSERBBUUA EOGGGEEEGHAGGROGREEN EDGE COEEEOUEGOSGRERGHGHUTRORI GOEADOINNNL SR RODS MN EEUddudcA i 

MesGesaeees BRRRERRAEE BEZERESRERS 


RREGRHESES GREER OG RGEREEREER GEST ERER RK, DY 
ARH LE a tetag ee tat atee SUSUH RERRAHAGHESGORATANEESCRGRCROG0 272A P SRR OE 
He Se A Lehre eg ET Bey A AS 46H ne Bann 





SERRERBEOR TR Al RARE URRORS Cabs leL eas Ee 
“TECH a are tg pet iar dana bat crevadT Tans saeditorancrc tsa LES) 
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Program Specifications 


RPG CONTROL AND FILE DESCRIPTION SPECIFICATIONS GX21-9092_ UM/050" 


Printed in U.S.A. 





75 76 77 78 79 80 


Keying : Program 
Instruction Identification 








Control Specifications 


For tne vaiica entries tor a system, refer to tne RPG reference manuai for tnat system. 

























rs ¢ | i 
w i 
= 5 | 
a al? a = 
= m c Oo} s Po 5 5 
c o1n alo * = i 
. 8 Number |= ol =| elsiyis i) Ste a S 
' - Cc + a a =. a 
Size to | 3} 9 | Size to E & c of Print |= Reserved £ é gizlo Fe is o}9 le =| 
: — a = = al|= ~}o a ai 
&|Compile | 5 | a} Execute >| Eb ele Positions |? o Pele ef Zthiclsis Qieleicls | g | 5/212 
Line > Ojo BZ [St stsalof sy 2 >| o Sl El Olsfelc{sls Floleis =(Si sials 
e aft 3 flujwjoa} es = ra > tr] <i sik ch}> SPO} spe ss a] Qi cline 
ole 5} 2 {9 = t2 fa 5/ 5 SISIF|SISlelelSisl elo] 2 elo alale 
E Ql Sj 8 [ry SeSisal s 5 S| 2 Siti slerels 21218) s] =]2 35/213 Ols 
= 2 > c — = oitwmicfy =] o ~ Paral Wied 
re 615 B/ 2 I8lalalzle a oa ascites 
576, 7 8 SpiGpitpil 73 ispiSpiGe 177187 19y 2 yZiyZzZ 26 411421493144} 45}46 [4/148 149150] b1f 52 59 4 56 





57158 59 60 61 62 63 64 65 66 6? 68 69 70 71 72 73 74 





File Description Specifications 


For the valid entries for a system, refer to the RPG reference manual for that system. 













Fite Type Fite Addition’ Unordered 





Mode of Processing 










Extent Exit 
for DAM 


Number of Tracks { 
for Cylinder Overflow 





Length of Key Field or 
of Record Address Fretd 











File Designation 













End of File 

















Name of 
















Labels S/N/E/M 





































































40 4} 42 43 44 45 46|47 48 49 50 51 52 


ciatone a SE Ra 
CECE 


‘IBM ewes eaienineoda RPG INPUT SPECIFICATIONS - Gx21-9084 _UM/050" 


Printed in U.S.A. 
12 
Pee [OLY stein me 78 


- Program 
Pare i) cz} of identification LELRINI RIE IG 
External Field Name 
Field Location 
Record Identification Codes 


Data Structure 






es Record Address Type = Number of Extents | 
i quence : ui ; Labei Exit ‘ 
Filename : ives af File » Device Device | Tape | 
File Format Ry rganizationor | 6 1 i Rewind | 
; 5 Additional Area {2 Storage Index 

Line os e 5 | File 
2 = Record po] Overflow Indicator! 2 | | bea 
~~ a ; 
bs Length a Field {+ | ue, | 
S S = Location 3) 
nn i 
Sja jw External Record Name Option Entry x i 
16417 20 21 22 25 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38/39) 53,54 55 56 57 58 59]60 61 62 63 64 65/66'67/68 69} 70:71 721 73 74 













1 





per ee 






































Progam Transaction ReGg/s 


owe L/1O/-— 








Field 
indicators 









Filename 
or 
Record Name 



















RPG 
Field Name 














Plus {Minus 






Data 
Structure 
Name 

7 8 9 101112 


Character 

Stacker Setect 
P/B/L/R 

Decimal Positions 
Matching Fietds or 
Chaining Fields 

Field Record Relation 






wo Record Identifying Indicator, 





: Option (O), US 








lel || EESRERESRERRES 

|i isl | pizi@@ry titi tT 

SRRRRER fo 8h deere | | 

Ee ee oer ae Dee We len tal delle) 

: PCE eee 

Input fields are described as before. In this program, totals must aueae Pe eee 

be accumulated and printed. You know that totals must be RRR EELRSRCER REL EEE STS 

printed whenever a record with a different date field is read. The Rabo i sotay Wai sbesfskipabaiorsiak le Fi 
BREEGRIERE 


date field determines when total operations should be done. The 
date field is the control field and must be specified as.such. This 
is done by the L1 entry in positions 59 and 60. 


SS 
a ae Se i = 
a ae a ae | 
Seen 3 
(ee eas aaa 
ae aa 
er ey a 
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a2 RPG CALCULATION SPECIFICATIONS GX21-8093 _UM/050* 


i= == Printed in U.S.A. 
























2 = = Inte national Business Machines Corporation 

12 
= “Transaction Beas com Pe LL eee] igen MN a 
PG bee ie eee Seas reOB lt eon ETIRNRE IG: 


Indicators 


Factor 1 Operation Factor 2 : Comments 
Name Length Sl1>a11<2 
: L i 
17]18 18 20 21 22 23 24 25 26 27 [28 29 30 31 32/33 34 35 36 37 38 39 40 41 42}43 44 45 46 47 aglag 50 51 oi el 62 63 64 65 66 67 68 69 70 71 72 73 74 


TTT TT Lieve TET TT | ult Teele! [TTT lexiiestty Tle TTT TTT TTT 
LL exriclsin ||| Wl! | Ipavitiol Ca ae UEP 
PORE LET PE EET BARA MEA EAR ERP ARERR REESE eA 
For each item, QTY must be multiplied by PRICE to get EXTCST (sales amount). To get fouet Bee td 
the total of all sales made during the day, EXTCST is added to DAYTOT (the field used to 

accumulate daily sales total). 








| | [| [-_]~ Controt Lever (Lo-Lo), 
Pt & 6, SR, AN/OR) 
= 





IBM RPG OUTPUT SPECIFICATIONS Gx21.8090 _UM/050" 


BST in Nternational Business Machines Corporation _ Printed in U.S.A. 

75 76 77 78 79 80 
Proaam “Tranga tion Keying | Graohic || {| | [|| card electro Number elgg — a, FIRINRIEE: 
Programmer me | owner Doe Date m1 pe _— Instruction es es Gn ee | Identification Als Al 


X = Remove 
Plus Sign 










Field Name 















Field Edit 









or 
Filename EXCPT Name 
or 


Record Name 


Defined 



















End 


Position 
Constant or Edit Word 


*AUTO : 
‘ 1°23 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 * 
27 32 33 34 35 36 37/38{39]40 41 42 43444 


TT Repo ot ul tat PEL Pace alt SIP MENGE TaD eID He cpl IP ele elt lag 
elt fo TTT TT TTT TT ete Tt lari? | ML ler 
elt to TTT TTT TTT TTT TTT tie | | dpe ET 
elt do TTT TT leslie Tt ol TTT ET 
el TTT TTT TTT TTT tery Tet ot 
ele or ae HERE Lg 
ee TTT TTT TTT Udall (| bla TTT TTT PTT 
a 










Suppress 


Edit Codes EI) 
B/A/C/1-9/R : 






































COa Rane eee SERRREC EMR AAR AMEE TARE RRR EAE Eee RARE 
ole oT ET LT Pry att es ET 
Pee TEE eestor a ee 

RERERRE CRAM RDRR ERR RAR EES ROPER ARE IeR SEED a 


Two different lines—detail and total—are needed for this report (note D and T in position 16). 
The detail line is described first. According to the report, the date field is to print only for 
the first record in a new control group. We do this by conditioning the date field with the L1 
indicator. The date will now print only when L1 is on; that is, for the first record in each 
control group. 






























The total line, which contains only one field, is described next. The entire line is conditioned 
by L1 because it is a total line. The B in position 39 causes the DAYTOT field to be reset to 
zero after it is output, but before sales from the next group are added to it. If DAYTOT were 
never blanked out, the totals of all days would be accumulated. 
















ST 
Zi 12 O2 69 89 49 99 SO PO ES 79 19 O9 GG BS 4S 9S SG 'S 7S LS OS Ge SP Lb Sb Sb Ph Sy 2b Le OF SE SE LE GE SE FE Ef ZE LE OF GZ 82 Le 92 GZ HZ EZ 27 IZ ~OS Gt BL AL OL GL OL EL ZL LL OL 6 8B £9 SeE ZL 
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FIRST PAGE INDICATOR 


The first page (1P) indicator is used on the Output Specifications form to 
specify the headings you want printed only on the first page of a report. 
Headings, usually printed at the top of the page, include such things as 
report titles or column names: 





RPG OUTPUT SPECIFICATIONS GXx21-9090 |‘ UM/060" 


IBM International Business Machines Corporation Printed in U.S.A. 
75 76 77 78 79 80 


iT] taensteation LLL [TT] 
Page a Identification 
> (== Pa ae 

to Print Plus Sign §-9= 















instruction 





4 
3 






| 






} 





Output Indicators 


. 



































































E\e page Nae 
Filename z= : © econr i | ae 1s A} J Pega edit | Ver 
& AaALStS ame jf Yes No BiK Defined 
§ Record Name ote. g : tj a ae ey tae 
cel at ae * AUTO Constant or Edit Word 
: * 12 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 2m 
34 sfel7 so tn i isha ae 272) 20|30] 1] 32 33 24 35 26 27]30|30] 40 41 42 aa]ee| as 46 47 40 09 50 61 G2 0 Be 56 66 G7 60 GD 60 61 G2 60 G1 65 00.67 68 GO 70/71 72.73% 
GaN =A TMA HA-CONGT Mad GANA OGTANMASUONGENSGNIGSEUSSSUTSRRIGINIIEID 
SEPT TT Tt ei PTieialnisialerriio N iReleiistrelel| | | i tt tT 
PPCATLELLLELE EEE ELE LLL EEE EEE EEE EEL 
eR pp pp HEH epee eee | ee 


He: BEERS RACER RAA ARE ERE A EASA ERR RER REAR TERR DARA Eee 

BOG: GR e RARE CARR RRERRR ARR RE RAP ARR RA RARER AST RARER Sea See 

GCN: AUMAMEREEEHRUOGGGOEEIAGURECGEEETRAUUGREERRUAUURRORERENERROUAURUUREE 
HEM ERH RARER REAR RRSRRERR ARE 











Be PEEP eee 
aoaeee Space should be left at the top of the paper to avoid printing close to the perforation. po 
Ret Tol The paper is inserted into the printer so that the first print line will be just below the beanies 
RTT tol perforation. The 06 in positions 19 and 20 indicates that the printer should skip to line SERREEES 


06 bef h 
nist fol | 11 ore printing. T e Printing th then begins SIX lines (one inch) below the perforation. PRRSEeEs 
RaSh ERR EERE ERREREE 


ale} fo ||| Pee nets eaaae 
PPret TEE EE 
CHM: PERSE RR ORUUEE REBAR ERE RETR ERRGRAS REARS CIR RER SEAR RE RRO e Ree ee 
DOR: RGR E RRR E AERA SR REE AER EELS RAR RSA AREER GRR REA eS ee Ewes 










a 
CCPeCCCECCCAEECAEC EEOC eee 
Bee SHER RAR ALR R RRR RE EAR Re RRR R ER AAR HEE EO Re eR ARMA ER Ree 

09 65 8G fS 99 99 #S ES ZG 1S OG GP Sb iv Sv SH bP ED Zh tw OW GE GE LE SE SE PE EC ZE LE OF Ge BZ 12 BF GZ He ES ZZ IZ «OZ GE Si 41 OL GE WL EL ZL tL OL 6 829 F¢ & & Zit 





Zé 12 O2 88 89 49 OB SB PO C9 29 19 


Program Cycle Operations 


One operation in the program cycle concerns the 1P indicator (see Figure 13). 
The 1P indicator is automatically set on at the beginning of every program, so 
the first operation in the program is to print any output record conditioned by 
1P. After this is done, the first record is read and the program cycle operations 
are executed in order. 


Headings conditioned by 1P are printed only once—at the beginning of the 
program on the first page of the report. Any heading records that are not 
conditioned by 1P are handled in the same way as detail records. This means 
that they are printed along with detail records in every cycle. 


START . 





Perform heading 
operations. 


. Perform detail 
. output operations 












Perform detail 
calculations. 





Move data from record selected at 


inni le into processing area. 
beginning of cycle p 9 Set off control 


level indicators 








Read a record. 


Program 
Cycle 







Perform total output operations. 


NETS 


Perform total 
calculations 












if change in contro 
field, set on contro 
level indicators. _ 





Note: The first operation in the first program cycle concerns output operations conditioned 
by the first page (1P) indicator. 


Figure 13. Program Cycle Operations for 1P Indicators 
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RPG Specifications 
Heading information to be printed on the first page of a report is specified by 
using constants (actual information instead of field names). Constants for 


headings must be specified according to these rules: 


e Constants must be entered in positions 45 through 70 of the Output 
Specifications form. 


¢ Constants can contain any of the characters in the data character set (the 
256 EBCDIC characters). 


e Constants must be enclosed in apostrophes. (The beginning apostrophe is 
always entered in position 45.) 


e No field name can be used on the same line as a constant. 


e An end-position entry must be entered for every constant. 













X = Remove 
Plus Sign 

Y = Date 

Field Edit 







Field Name 









a Zero Balances . F 
> [comma | 29 ee | nosian| oR | 
Yes 


or 
EXCPT Name [i 





Constant or Edit Word 
"1°23 4 5 6 7 8 GB 1011 12 13 14 15 16 17 18 19 20 21 22 23 24 * 
32 33 34 35 36 37/38]39}40 41 42 43]44]/45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 87 68 69 70/71 ane 


etter POOR AGRE O RAR RRS ERE R RRO RR RARER RE REEE 
Hert HH AUS TIMER AU BER.” Valid constant. 
eae t ea et REREEs 


8/A/C/1-9/R 





I 
+t Invalid constant. The constant must be preceded 


CCC EE eit lame CCC EEE > consta 
PoEHECTELCPTPPPELE EE EEE by an apostrophe in position 45. 

Cosr aS SUNIT Cost! Invalid constant. A field name cannot be specified 
PEE EE ET oon the same line as a constant. 

PLETE ELT LT! ist tioleipit.| iivimeiel! | | | +++ Invalid constant. The last character in the constant 
Pees aC CMbCrercaeN it nies) cr Miencli)  saisebetalawed by an apostrophe. 

PET ETT aig eget REFEREE EE valid constant. 

ERRSET TORE Re ERPS ERS Ree ee aee eee Ree ; — 
pon HB DALI TRANSACTI ONREGISTER! TT Valid constant. Although the constant is specitied 
ERAGE ESTE correctly, it will be unreadable when printed 
SHARIA IASAAESASEAAAERAAHGERSOSAERAUAERSHGER because no spaces were left between words. 
EERELR ERE REE R RATER ES eee Eee eas 
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Headings too long to specify on one line of the Output Specifications form can 
be split and placed on separate lines. You must, however, give an end position 
for each part. 


The heading shown in the printer spacing chart takes 28 positions. A constant 
containing a maximum of 24 characters can be specified on one specification 
line. Because the entire heading cannot be specified on one line, it must be 
broken into parts. The examples given show three different ways to specify 
this heading: 


Pie aie ACA EALALA 
aaee SaEE 
























Field Edit 
Z = Zero 











a 8 
Commas ‘ i‘ 
Yes Yes Al] J 
Yes No B K 
No Yes c L 
No No M 


Constant or Edit Word 
'“ 423 4 5 6 7 8 9 1011 1213 1415 16 17 18 19 20 21 22 23 24 * 


SSTSSONTON EST SON TM woe eH 
TTT ie ATL, | TRANSACTION | REE | 
EEE me Cet 
SR AE REA EARASESEEEESRESSERERERESERERERED 


mere Zero Balances 
ema] eR room on | - 


PSS Gate eR RCC TS 
dee — ' ; 






























X = Remove 
Plus Sign 
Y = Date 
Field Edit 
Z = Zero 
Suppress 


‘ ve - B \ 
iti No Yes Cc 
SSIS) ij No No Di M 
*AUTO Constant or Edit Word 
; ‘12 3 4 5 6 7 8 9 10 1112 13 14 15 16 17 18 19 20 21 22 23 24 * 
21 22}zs 32 39 34 36 96 27)3e|30]40 41 42 43|eafas @6 47 «8 49 60 51 52 85 D4 G5 56 57 5859.60 61 2G O4 G5 66 67 GH 60 TO[NI 72-73-74 


ee | isitt tsiplaltielw’ | TT tt TE PE TE 
PoeCeee eee See ANS otek Dee 
TET TTT TT tied [siete lotic | TE TTT TT TT TTT TTT 
BERRLRRARER ROHR ES TU RER RRO RCR ERE EE ERLE SAAR REE RERs 
PCLEREEARORERER RAE AR RREA REE R EERE SE EERE REAR SRR RR ae 


Output Indicators 
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Field Edit 
2 = Zero 
Suppress 


ve No B i 
ea . 
No No M 
*AUTO Constant or Edit Word 
u ‘12 3 4 5 6 7 8 9 10 11 12 13 1415 16 17 18 19 20 21 22 23 24 ° 
31] 32 33 34 35 96 37|28]30] 40 41 42 42] 44] 45 46 47 40 40 50 51 52 59 G4 55 96 57 58 59 60 61 62 63 64 G5 G5 67 G8 69 70|71 72.73 74 


ag 
ert fo TT EE EEE SUARBIEEURSUEBRECOAC SVN a mealnisiactrinoi’| | {ti | tt fy 
ECE EECL EEE EEE [lol ekiicimeR | TT TT TTT TTT Tt tT 
DEE BUFR REAR RRR RE RRR RAR RA RRR R AERA RARER REE R NARA RRA RRR RRR eee 
DESC ARRRS REG AR RRR EERE HERR ERGECE RRL SRE RARER ERE R ORR E REE ERE Ree S ERE Ge 
OCS EERE DURA R REA RERS TERT ERT REAR ES EERE E VERE GREER REPRE REN Se eR eEe EERE 


Heading lines should be specified first on the Output Specifications form. The 
best method is to specify your record types in this order: heading, detail, and 
total. 


Filename EXCPT. Name |} 


or 









Record Name 
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OVERFLOW INDICATORS 
You use overflow indicators to: 


« Print headings on every page but the first page of a report (the 1P indicator 
allows headings to be printed on the first page). 


e Control where printing begins and ends on a page. 


« Advance forms from one page to the next (provided a skip specification is 
also used). 


To understand how overflow indicators work, you must know how the concept 
of overflow is defined in RPG: 


e Overflow means the lines that remain to be printed after a page is full. 


e Overflow handling means advancing forms to a new page after the last line 
has been printed on the current page. 


« Overflow line means the last line to be printed on a page. 


e Overflow page means the new page to be printed when overflow occurs. 


The last line to 
be printed ona 
page is known as 
the overflow line. 





Overflow occurs 
when the overflow 
line is printed. 


Printers use continuous forms (a series of pages divided by perforations). Overflow 
handling refers to the means of advancing forms from one page to the next. 


Overflow can be handled automatically by the system or through specifications 
you write. 


Note: This discussion assumes that you are using standard 66-line forms in 
the printer. 


If the system handles overflow, the first heading line prints on the line 
specified by the skip-before entry (positions 19 and 20 of the Output 
Specifications form). If no skip-before entry is made, printing begins on line 
06, which is the default. Printing ends on line 60 if the page length is set at 
66 and if no overflow line is specified. Overflow occurs after line 60 prints: 
that is, the forms advance to a new page. If the system handles overflow, you 
cannot print special lines at the bottom of the page or any headings on 
overflow lines. Heading lines can be printed on the first page if 1P is used. No 
instructions are provided, however, to print headings on overflow pages. 
reading lines are considered to be detail lines and print on each detail cycie if 
the conditions placed on printing are met. 


When you do not want overflow handled automatically, you can specify on the 
coding forms how you want it handled, using overflow indicators: 


File Description Specifications 


For the valid entries for a system, refer to the RPG reference manual for that system. 


File Type Mode of Processing File Addition/Unordered 
File Designation Length of Key Field or Extent Exit Number of Tracks 
of Record Address Field for DAM f 
End of File ‘OF Cylinder Overflow 
r . Name o Number of Extents 
d Sequence ; Symbolic 
Filename q Type of File Device Heres Label Exit 
File Format NS Organization or f 
5 Additional Area Storage Index =p 

ile 

Overflow Indicator|’ Condition 
U1-U8, 


Key Field 
Starting | Continuation Lines | nuation Lines uc 


Location 
Option Entry 
40 41 42 43 44 45 46/47 48 49 52 54 55 56 57 58 59 |60 61 62 63 64 65; 66|67]68 69}70}71 72|73 74 


Labels S/N/E/M 
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X = Remove 
Plus Sign 

Y = Date 

Field Edit 







sae ai 









ax — (F) 





> (eee ees 
to Print 
Yes es 
2 = Zero 


ao Cutout indicators 
A J 
Yes No B K ! 
iti No Yes c L 
Suppress 
i No No D M 
*AUTO : Constant or Edit Word 
‘42 3 45 6 7 8 9 1011 12 13 1415 16 17 18 19 20 21 22 23 24 ° 
GESGUUEEREMESRRMBASR 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 G7 68 69 70 


OTT Sane IRGC RERR REA RRA RISEIRES ERR ER ERPS R ED 
See AES RRRER MERA SEAGER RRA REE 
Coa Sen aRe Rae eR ees TST tale fet VOILA a SSC SSS ST SSS aL Ts 
SE ee a SUPT SE SEDs Pai Te Tee Sey patel SE Ia Se ise Ls 
Be Merete kel ere ler l ae an PIC) Mee teal IN SISTA abt plod | 
POR BRR A RR RE MERA RRA BEATERS RARE ER RRE RARER E REE ERR R MERE e eRe 
POT TTT TT 
COE e PEPE E RRR R RE SAR MERE Ee RCE R EBERT CRAG SAA RARE CAREER RRR MRR eee 
Ee eee ee SL EMTS naa JAI isla Ital b ee tere ni 3 
BOG AUR RARER ERR E RARE ER AAR RRA R EE ERE RRR RR ORE EERE R ARERR ERE 
GOR RERERRERR RE REM RASDA RANE R ERA E DEAR eee eae RERUN 


Assign an overflow indicator to the printer at (1). Then use it on the Output Specifi- 
cations form at @) to show which operations must be done when overflow occurs. 






EXCPT Name [{f 





Filename 
or 
Record Name 
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Program Cycle Operations 


Figure 14 shows operations in a program cycle in which overflow indicators are 
used. 


The program sets on the overflow indicator you assigned whenever the 
overflow line is passed. By setting the overflow indicator on, the program 
remembers that overflow has occurred. As you can see in Figure 14, overflow 
indicators can be seit on ai one of two times: ai detalii time wnen a ceitaii 
record prints on the overflow line, or at total time when a total record prints on 
the overflow line. Notice that the only time a check is made to see if the 
overflow indicator is on is right after total output. If the overflow indicator is 
on, overflow operations are done in this order: 


1. Print any total lines conditioned by the overflow indicator. 


2. Skip to new page, provided a skip specification was made on a line 
conditioned by the overflow indicator. 


3. Print all heading and detail lines conditioned by the overflow indicator. 


If multiple detail or total lines are to be printed in a single cycle, printing may 
occur past the designated overflow line. This is because all detail and total 
printing for a single cycle is completed before overflow operations occur. 


START 





Perform heading 
. Operations. 
Perform detail 
output operations. 


If overflow line 
has been 
reached, set on 
overflow 


Move data from record selected at indicator. 
beginning of cycle into processing area. 





_ Set off control 
level indicators. 





if overflow indicator is on, 
do overflow operations and 
set overflow indicator off. 





Read a record. 












Program 
Cycle 





Perform total output operations. 
If overflow line has been reached, 
set on overflow indicator. 







If change in 
control field, 
set on control 
level indicators. 






Perform total 
calculations. 





Figure 14. Program Cycle Operations for Overflow Indicators 
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RPG Specifications 


There are eight overflow indicators: OA through OG and OV. You can enter 
any one of these indicators in positions 33 and 34 on the File Description 
Specifications form. If you have more than one printer file, however, you must 
specify a different overflow indicator for each file. 


After you have specified an overflow indicator on the File Description 
Specifications form, you must specify the same indicator on the Output 
Specifications form. This specifies what you want done when overflow occurs. 


Besides specifying the overflow indicator, you must also specify that forms 
should advance. You do this by placing a skip specification in positions 19 and 
20 on the Output Specifications form. 


GX21-9090 UM/050° 
TEM International Business Machines Corporation R PG OUTPUT Ss P EC I F ICATIONS iy Printed in U S.A. 
75 76 77 78 79 80 
= ga ee 
a CO ene 










































irs 
re , Zero Balances = Remove 
: oveut ee a— ii : nl <> Comma | 28° Saances No sin fcr | 
: = had eet ease | ec See ere , ate 
= or FY Y = Date 
Filename x - EXCPT Name 4 es Ves A 4 Field Edit 
a B13] s ; End Yes No BK) z= Zero 
Rid |< Position No Yes cit Suppress 
Record Name Tet : 31 in No No ol M 
|a{O}D| a Output : 
ofr] | *aAUTO Zl @] Record Constant or Edit Word 
0 “423 4 5 86 7 B 9 10111213 14 15 16 17 18 19 20 21 2223 24 - 
Rape 19 20 TCL LEER eee 
ol JOPRIINITEIR: I | | igel |} iovi | TTT tT ETE EEE EE 
DOR. CUR REERAR SOSH REDE BAE ROR EOE EEE CCC 
O14 


The skip specification should be made on the first line you want printed on the 
page (usually a heading line). The skip entry is the line number of the 
beginning line (usually 6). 


Always remember to enter a skip specification for advancing forms in a 
heading line conditioned by the overflow indicator. If you forget, forms will not 
advance when overflow occurs. 


Using Spacing with Overflow 


You already know that the overflow indicator is turned on when a record is 
printed on the overflow line. However, this indicator also turns on whenever 
the overflow line passes under the printing mechanism. This means that 
spacing to a line past the overflow line to a line on the same page causes the 
overflow indicator to turn on. Figure 15 shows an example of coding for 
spacing after printing. 


= Internauonal Business Machines Corporation R PG OUTPUT Ss P ECI FICATIONS Sree Alana 


Printed in U S.A. 


ea ee rom PASE 


ae SS a cena 


Output Indicators Pocrasceaspacacrmmmnaascesmmmaesreneaseesit C Zero Baiances a | _ | X= Remove 
F ae ls fe e Lt to Print} tt Hosier | © Pius Sign Zz 
; Y = Date ee 
Filename EXCPT Name |: — Field Egit | 
Ls: Yes Defined 
or nt No ve Z = Zero 
Record Name oar in Suppress 


Form Type 
| 
E} Type (H/D/T/E) 
| [>Jot a! Stke #/Fetch (F) 


“acl 9/R 


PT Plea Niele ol | 
elt to TTT TT TTT 
els to TT 
ele fo Tt TT 
GRR CERRRU ERE 


E 
- T 
ele fo TT TTT 
So aeeeeeeee 
a 


Con eee e HRSRIEREa 
st PT | et 
BEGEREAEERS 


Boa Bieeeeee 
GCeCEPSaER 
HoGC RPaeee 


nero TTT 114 Assume, for example, the overflow line for a program is line 60. Assume also that 
the detail line specified prints on line 59. Printing the detail line does not cause 


Py lol Ty Rae SaERee 
Oe le eT eRe See eet aps cell Spd eee Ege, RaRSERSGRER 
BOSC ARR S DEERE RRR AR ERS RRA SERIE AREA RR EER REAR ARR PRR EE eaee 
Bide: PERS ERS E RES RRER ERA RAA ARE REA RR HAR EET RR AR ERE SERNA TRR RRR EEE Aaa 
ect PERERA GE TM AR RAE REAR RELEASE SeRE REAR eAE 


Figure 15. Spacing after Printing 
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"AUTO Constant or Edit Word 
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Using Overflow and 1P Indicators Together 


The overflow indicator is most often used with other indicators. However, we 
will discuss the use of overflow indicators only with the 1P indicator. Both 1P 
and OV cannot be on at the same time. 


If you want headings on all pages of a report, you can use both the 1P 
indicator and an overflow indicator. 1P causes headings to print on the first 
page; the overfiow indicator causes them io prini on aii succeeding pages. if a 
record should be printed when either one or another condition occurs (either 
1P or OV is on), you can specify indicators in an OR relationship. 


IBM, nternatio: mH Business Machines Corporation RPG OUTPUT SPECIFICATIONS GX21-9090 UM/050° 


Printed in U.S.A, 
75 76 77 78 79 80 
keying | Grhic | | [| | [|_| care Etectro Number san 
En SR ca 
to Print 


A J : i 

Bi Kis, i 

iti Cc} ie 

3 D M 

“AUTO = Constant or Edit Word 
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Output Indicators 
o— Name 









Filename 
or 
Record Name 


EXCPT Name 




























a SUGRGG 

Coa If a record can be written when either one of two conditions exists, a the Reena geue 
'}1} jo} || | | i} indicator in an OR relationship. Specify the indicator signaling one condition (1P in this ele 

coe case) on the same line as the line type. Place the indicator signaling the other condition Resa 
a (OV in this case) on the following line with the word OR in positions 14 and 15. Then specify — 
oa: fields and constants to be included in the record in the normal way. In this example, headings ERE 
het To will print when either 1P or OV is on. . 






rte lol Ean Space and skip entries are not necessary in the OR line. The entries in the line preceding the ieee 
eto TTT OR line also apply to the OR line. Tae 


LAST RECORD (LR) INDICATOR 


The last record (LR) indicator is associated with end-of-program procedures. 
The program uses LR to indicate that the last data record has been read and 
that end-of-program processing is to take place. 


Use of the last record (LR) indicator is optional. When LR is not used in 
specifications, the compiler automatically supplies end-of-program instructions. 
If you use LR, you are indicating that certain operations, such as printing a 


total count of all records read, must be done after all input records are 
processed. 
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Program Cycle Operations 


Figure 16 shows the operations in the program cycle associated with the last 
record indicator. RPG is set up so that it senses an end-of-file record 
containing some identifying information to indicate end of the data file. Each 
data file has an end-of-file record. 


Whenever a record is read, the program checks to see if all records in a file 
have been processed. If all records in all the files have been processed, the 
program sets on all control level indicators L1 through LY. It also sets on the 
LR indicator to indicate that all records have been processed. All total 
operations (those conditioned by LR and L1 through L9) are performed. After 
total operations have been done, the program checks to see if LR is on. If it 
is, processing stops. 


START 





Perform heading 
operations. 

Perform detail 
output operations. . 
If overflow line 
has been reached, 
set on overflow 
indicator. 











Perform detail 
calculati 









Move data from record selected at 
beginning of cycle into processing area. 


RTA STH 





Set off control 
level. indicators. 


if overflow indicator is on, do 
overflow operations and set 
overflow indicator off. 





R ‘ 
Pro gram ead a record 


Cycle 





if LR indicator is on, end 


I 
of program has been reached. f last record, set on 


control level and LR 
indicators, and go to 


Perform total calculations. 







Perform total output operations. 
If overflow line has been reached, 
set on overflow indicator. 






Perform total 
calculations. 







if change in control 
field, set on control 
level indicators. 






Figure 16. Program Cycle Operations for Last Record (LR) Indicator 
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RPG Specifications 


The LR indicator is specified by an LR on the Calculation Specifications form or 
Output Specifications form. This entry specifies which operations are to be 
done after the last record is processed: 


G CALCULATION SPECIFICATIONS GX21-9083 UM/050° 
TEM jeer rnational Business Machines Corporation 


Printed in U.S.A. 
cong Lomore | | | [1] _]_] ete name 
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75 76 77 78 79 80 
Program 


Identification 


coin ome] TT] [ [_] cero 
ia ee aac 7 new eer 
Ft nae mm | roe nese] on | -|*" 


Yes Yes A J : 
EXCPT | Name Ves No ai x : i 
iti No Yes Cc L 
Sh) i No No Oo! mM 


Constant or Edit Word 
"4°23 45 6 7 & 9 101191213 1615 16 17 1819 20232223 4 








The LR indicator is specified at (1) to tell the system which calculations are to be 
done after the last record is processed. The LR indicator is specified at (2) to tell the 
system which output operations are to be done after the last record is processed. 
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EXAMPLE 4 (TRNREG): USING FIRST PAGE, OVERFLOW, AND LAST 
RECORD INDICATORS TO PRINT HEADINGS AND TOTALS 


Program Definition 


Print a weekly sales transaction report that lists daily transactions, total sales 
for the day, and total sales for the week. This report is similar to the one 
created in Example 3. The only difference is the addition of headings and final 
total. : 


The report title and column headings are printed on every page of the report. 
All items sold each day are listed. Item number, item description, quantity 
sold, unit price, and sales amount are included for every item. The date is 
printed for the first transaction in each group. After all transactions for a day 
are listed, the daily sales amount is printed. A final total of all daily sales is 
printed at the end of the report. 


Program Requirements 
Input: Saies transaction file consisting of 96-character records. Records are 


arranged in ascending order by date. The format of the input records 
is shown on this record layout form: 










Item 
Description 


item 
Number 





Two decimal positions 


Processing: 


¢« Multiply quantity times unit price to find sales amount. 
« Accumulate sales amount to find total item sales per day. 


e Accumulate total daily sales to find total weekly sales. 
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Output: A printed transaction register: 





TRANSACTION ITEM 
DATE ‘NO 

T/23/- 413010 
412146 

411116 

T/24/ -- 503029 
327802 

326013 


Me 


TRANSACTION REGISTER 

DESCRIPTION QUANTITY UNIT 
PRICE 

CHOOL BOX 100A FLUSH LO 4090 

CH148 BREAKER I15A 100 289 

1500 TWIN SOCKET 8B 500 lel2 

MOTOR 1/2 HP 60 CYC 2 146e78 

TERMINAL CLIP 100 5el2 

TERMINAL BAR 100 


a en rs 


T/2T/ -- 321071 
325781 
412146 


573022 


2-SPEED SAW 1 28 04% 
SATIN-CUT DADO SET l 39250 
CH143 BREAKER 15A 50 089 
6-VOLT POWER BATTERY 2 14045 


WEEKLY TOTAL 


This printer spacing chart shows how the report is formatted: 
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SALES 
AMOUNT 


49200 
89200 
560200 


698.00 


293456 
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28244 
39250 
44250 
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1414234 


29593270 
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Program Specifications 
RPG CONTROL AND FILE DESCRIPTION SPECIFICATIONS Saat Pees 


75 76 77 78 #79 80 


1 2 
Program 
Page Ol of __—s_ Identification Tirinireiew 








| 
Keying 
Instruction 









| Key 










File Description Gnecificatian 
The only new entry here is the OV indicator. Headings are 
to be printed at the top of every page. Overflow must be 
controlled in order to specify exactly where headings are to 
} print. The overflow indicator is, therefore, assigned to the 
printer file to tell the compiler that it should not handle 
overflow automatically. 






Mode of Processing 


















Length of Key Field or 
of Record Address Field 





File Designation 


End of File 
















Record Address Type 













: Sequence 
Filename bas Type of File 
N Organization or 


5 Additional Area 





File Format 


Block Record 
‘Length Length 









Overflow Indicator 
Key Field 
Starting 
Location 











F/V/S/M/D/E 
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Factor 1 


ecimal Positions 


~ Control Level (LO-L9), 
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for Example 3. The addition coded 
on line 03, conditioned by L1, will 
be done only when a control break 
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instruction Key identification 
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elt] fOlglelioigtr! | tut | iio | | Pl TTT TTT 
ot tt Tide ow ET ET Pog sta 


GOR: RERSERATORERRORGRR RET REAR RRA, 
GON URMABEATEATBUAAO;ROGRRESRESRRTOARGSSRSOAGISAORAEBERASOEREAOEEEUEED 


UN 


ia i i . ¢ 1 
016) 1G \ fa 


Goa Cee eene CECE Heat Pie nek CEA 
ON: Race EET TT dist ularly | ui 
TEU TT TTT TTT TTT feet tsisiatedle | TT TTT TT 
A RRNA RARER ME EA TEARS RRA REARS Ae AeA EERE 
apr Cte TP lo CP 
ee ee ee ce ee eee 
at lot TTT TTT TTT TT TT tol spit ielel | TT | Moin’ | | tt TT 
DONC HEUMAROSHOCGRRROC\MOSGERAEGAROGRGEGGRAGRGGRRRGAROESGERORORGROGEE 
si to TT ea oie] TT ee 
Ca GREP RSET ARR eRAaR SAAR REREAD RRTARAEERRRRRERSE SERRE ERA 


IBM tnternation a! Business Machines Corporation RPG OUTPUT SPECIFICATIONS Sk rat yaaa 


1 2 


Card Et Numbe: 75 76 77 78 79 80 
imag coo Ste REE “|e oe RNR 


SpeaaoR Rea RR REET panna REITING oon Pose wero) : 

FieldName if saa —— to Print 2 
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PERE HEE EEE WEIS PEE EEE EEE 

Six different lines are to be printed, so six are described. The three heading lines should be ag 
{3} fof | | | | | | | printed either when 1P is on (first page) or when OV is on (overflow has occurred and forms fia 
+14] Jol | | | | | | | have advanced). Thus, each heading is conditioned by 1P and OV used in an OR relationship. [| | _ 
ts] foo ft tt Notice that the first heading line has the skip specification. This skip must be made before Ee 
tel fol TT | | forms will advance. ae 
Hy fo EB 
GO ERRSHE The weekly total is printed only once on the report, after all records have been processed. It ee 

is conditioned by LR. A constant is specified for this total record so that the words WEEKLY = 

TOTAL print as indicated on the printer spacing chart. aE 
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RECORD IDENTIFYING INDICATORS 


In the programs discussed so far, we have assumed that all records in the 
input file were alike. They did not necessarily contain the same information, 
but they had the same fields and the same kind of information in each field. 
They were of the same type. 


However, in real programs, data files do not contain records of only one kind. 
Files often contain many kinds of records with different fields and different 
information. When using more than one kind of record in a program,. you must 
have a way of telling the system what operations (calculations and output) you 
want done for each record read. Record identifying indicators are used for this 
purpose. 
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Program Cycle Operations 


Figure-17 shows program cycle operations associated with record identifying 
indicators. A record identifying indicator is set on right after a record is read 
and is set off before the next record is read. 


Normally, record identification indicators condition detail calculations and detail 
output operations because detail operations are done for the record just read 
(tne one associated with the record identifying indicator). On the other hand, 
total operations are not performed for any particular record; they are done after 
detail records are processed. 


START 


Perform heading 
operations. 
Perform detail 
output operations. 
If overflow line 
has been reached, 
set on overflow 














Perform detail 
calculations. 


















indicator. 
Move data from record selected at 
beginning of cycle into processing area. Set off control 
: level indicators. 
Set off record identifying 
indicators. 
If overflow indicator is on, do 
overflow operations and set 
overflow indicator off. ER eee 
Program 
Cycle 
If LR indicator is on, end of iss ae ee 
program has been reached. sc eticuelend LR 


indicators, and go to 
Perform total calculations. 





Perform total output operations. 
if overflow line has been reached, 
set on overflow indicator. 





identifying indicator. 









Bee) 





Perform total 
calculations. 


if change in contro 
field, set on contro 
level indicators. 






Figure 17. Program Cycle Operations for Record Identifying Indicators 
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RPG Specifications 


These are the RPG specifications you use when a file contains more than one 
kind of record: 


RPG INPUT SPECIFICATIONS GX21-9006 UM/060" 


IBM Internaponel Business Mechines Corporation Printed in U.S.A. 


| Graphic | | | ot [ ||| Card Electro Number Program ey Zt 27,78, 79 80 
fey | | | | { TT | oie el sl 
















External Field Name . 
L sh Field Location | eae 
rime LTH s| | sl 
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TTT tt et ear rt 33) 35 36 37 38138140141142143144 45 46 47148 49 5v 611525539 54 55 56 57 58159 BO]61 62163 64]65 sale? seleo 70171 72 73 74 
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EM. a RPG CALCULATION SPECIFICATIONS Gx21.2088 | UM/O50* 
ome Lemme | [TT] _) ena ene nama SE ee 
a a } mils oe... 


Resulting 
Indicators _ 


| 
| Zero | 

’ Compare. Comments 
ez} 














Factor 2 





~ Factor 1 Operation 






















C Ee Ta eet) PASTEE Re eS eee Tel adele kel 
GX21-9090 UM/050° 
7 eid tondiaiea hetuaseea en eos RPG OUTPUT SPECIFICATIONS See ers 
pee ca eee non 
EC etn LTT T 
ry 
ui $ Output Indicators AoC ETSI SESS SEAR OS GATED, = Remove 
els Field Name If e Plus Sign 
Ole 3 Y = Date 
Filename = a3 EXCPT Name : Field Eait 
or a : 









Record Name 






B/A/C/1-9/R 






: 
ra ; 
a 
Alolo] | 
*AUTO : Constant or Edit Word 
, "12.3 4 5.6 7 8B 9 1011 12 13 14 15 16 17 18 19 20 21 22 23 24 
EA celal bad Kas ba Re! at bade nde Bs hae A Re Ban Me ih Rc Re tae lad) LACK BS 


PRTC Ee PEE 


Assign a record identifying indicator (a two-digit number from 01 through 99) 
to each record at (1). Then use that same indicator to condition calculations 
at (2) and detail output operations at (3). The calculations and detail output 
operations must be done for only that kind of record. Identify each kind of 
record by describing a code that identifies it at 4). If records must be in a 
certain order, indicate that sequence at 
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As we said earlier, you must describe each kind of record in your input file. 
This description includes the names of all fields used from the record, the 
location of the fields, and the type of data in the fields: 


GX21-9004 UM/060° 
Printed in U.S.A. 


IBM. nternatronal Business Machines Corporation 

























12 a tees se SLRS 
gee 9 8 OO ee ee 
; External FitgName = ; es 
Record identificatiiy Codes = § | es 
P= T= We, ii 
“MH BTL | fumed 
aap nl j oN : ui : oe Occurs : § 5 3 “| i an 
a : eel el 
Aa 26 B 33434) 35 36 37 ISP 40 42|4a|44 45 46 47] 48 40 Su 61]/52/83 84 66 58 57 S8[58 cole 63 64165 86167 68169 7O;7?1 72 73 74 
SE LEP SAAR RRR ASP TO UEEE 
err TTT St Tidus bet TT 
ot TEE EEE EEE EEE EET TTL ot ielelowlo PEEL 
ret TE ET EEE EET ais) elo tele tel PT 
ee ley aie dite TT 
BOR SRARES IR RADAR EAR AA RRR ERLE ERAT AARNE MARA RARER ERASE Rae 
Bee BEC ee cee ene se) aide ice) cee tearelalai PII Rol WePs IS ie letallees 
DEL EERE RRA RRA REAR RA RE ERO RA RL BERRA ERE AAR LASER ASAE ERRATA ERE REERRE 
BOE RARER eT RARE REE FASTA RO RASA A RARER LAER ESLER EE MAREE REED 


When you describe fields from each record in the input file, you can give a 
unique field name to each field. If, however, two or more records contain 
identical fields, you can assign the same name to the field in each kind of 
record. Only one storage area would be assigned the same field from several 
records, but it does not matter because the information in the field is the 
same. 


You must do more, however, than merely list the fields in all records, because 
the RPG compiler would not know which fields were in each kind of record. 
Furthermore, it would not know which record it was reading. To give the 
compiler a means of identifying records, you use record identification codes 
and record identifying indicators. 


Specifying Record Identification Codes 


When you create records, you should include an identification code in each 
one. For example, to identify an item transaction record, you might place the 
code TR somewhere in that record. You can use any combination of letters 
and numbers for the identification code, and you can place the code in any 
record positions. 


When you describe the record on the Input Specifications form, you use 
positions 21 through 41 to describe the record's identification code and to 
indicate where the code is located in the record: 


For each character in the code 
TBM ose es RPG INPUT SPECIF you must specify: 


keviog | Semone ||| | 
Instruction Tey | | | | | C1) Where in the record the 


character is found. 












Filename | 
or 
Record Name 






What the character is. 










The letter C to indicate 
character. 


The letter N before the letter 
C if the code requires that a 
character must not be present. 


You can specify a code of up to three characters on one line. If your code 
contains more than three characters, use the next line and the word AND in 
positions 14 through 16. Figure 18 shows some examples of how to specify 
record identifications codes. 


IBM RPG INPUT SPECIFIC) 


* External Field Name 
"Record Identification Codes 


Position 
35 36 37 38 


To produce in the printed report the 
record identification codes listed below, 
write the corresponding input 
specifications shown on the form at the 
right: 






: - 


T in position 80 es 


ST in positions 1 and 2-——--—-________,. 


1A in positions 95 and 96 ————___—_> 


a a ee 


No A in position 95; 1 in position 96 ——~ 


ABCD in positions 1 through 4———_—_> { 





GO REGREAe 

DOS GREER GRR 
COAL ERRRSSAREa eRe aaae 
eee le Lael ea 


se es ee ee ee 
Lot | ics | 









CO RR A OR 02/1, 





a OS GS Fa") 











Figure 18. Valid Specifications for Record Identification Codes 
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Specifying Record Identifying Indicators 


You specify a record identifying indicator in positions 19 and 20 for each kind 
of record used in the program. Record identifying indicators are numbered 01 
through 99. Use a different number for each record type. 


A record identifying indicator is specified on the same line as the identification 
code. All fields for the record are then listed, starting one line below the 
identification code and identifying indicator. The fiie name need be specitied 
only once, on the specification line describing the first record in the file. 













IBM RPG INPUT SPECIFICATIONS GX21-0004 _UM/0E0" 
m International Susmnes Machines Corparstien 15 Printed in U.S.A. 
75 76 77 78 79 80 
Keying | Sreoric | | ||| ||| Card Electro Number nual | lor Prom 
Programmer Dete instruction Key 7 | identification Wty 
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or i #8 a: = Is 3 
Record Neme en ata ae | to 8] mec | 2 |eel 2 
Zi-l2.- z B| FieldName | £ [22] 2 
=|sla: 5 mtd ” = e? 3 Plus {Minus or 
5 Position S Position : Position =] 4 § a £ £ $= = 
ili 5 5 SelZIE] A | enon 18 8 |26| 2 
17418 9 26 28 29 30 31 33; 35 36 37 38 Tee ee ee 
SCCEWAERER TE | |2 ui ieicl | | it al : SHRESL EAE TRE SCRA SES 
olay EEE ROGERS SAAR EDR AERA RRES HHH CELE 
OOGE PEPE EEE EEE EET BT dist wel EE 
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El PETE TTT EEE sb fesiisianiziie’ FE 
BERR ARR GRR IARERERER ESSA ERE Ale EP tore (ea 
o aon: ANNMUBAUGEEGOGHGUGTOTGGSOUGTGOGUGUOIGISHCHR)/-"7-"7O00G0RRIRIGRIBED 
Hi SEPT TT ast | tsa} Isla pitio FREESE RARER RERES 





"it Re 
Pee Oe A | ide Isha TTT 
2nEee SUAETEAURNOREETOUERMEEEUED 25 esidsutee TC L 






Two records from the master file are described here. One record is identified by the fete. 
CA in positions 1 and 2. I[t is assigned record identifying indicator 01. The other record, 
which is assigned record identifying indicator 02, is identified by ST in positions 1 and 2. 
Note that no file name is used for the second record. The compiler assumes that this record 
is in the master file because MASTER was the last file name given. 


DORLERTEaaaE LL 








After reading a record, the program checks the identification codes to 
determine which record it has read. When it finds a match between the code 
on the record and the code stored from the Input Specifications form, it turns 
on the record identifying indicator associated with that record. This is the 
program's way of remembering which record it read. 


Record identifying indicators can be used to condition calculations, output 


records, or output fields. In this way, the program performs the proper 
operations for each record. 
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When you use record identifying indicators to condition calculation and output 
operations, you are assured that these operations are done only for appropriate 
records. If you do not use these indicators, operations are done on all records. 


Record identifying indicators should be assigned even when there is only one 
kind of record in a file. If you do not use them, the compiler prints a message 
telling you that record identifying indicators have not been assigned. 


_ The record identifying indicator should also be used to condition detail output 
records. This indicator prevents detail lines from being written on the first 
cycle. If the detail line is not conditioned by a record identifying indicator, any 
constants you specified on the detail lines are printed on the first cycle before 
the first record is read. 


Specifying Record Sequence 


Sometimes records must be in a particular order within a group, but at other 
times the order makes no difference. When records need not be in a particular 
order, enter two alphabetic characters in positions 15 and 16. Different 
alphabetic characters can be used for each record: 


RPG INPUT SPECIFICATIONS 


keying | Seammic || TT | J cara etectro Number 
roti Poy 
| 


. Record Identification Codes 


IBM International Business Machines Corporation 















Field Location 


fo Data Structure 
a 
oo 
~~ 







Filename 
or 
Record Name 






RPG 
Field Na 






imal Positions 
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lf the records must be in a specific sequence, you must make numeric entries 
in positions 15 and 16. Positions 17 and 18 provide additional information 
about the records. 


Positions 15 and 16 (Sequence) contain numeric entries (01 
through 99). The sequence entries must be in numeric order. 


(2) Position 17 (Number) tells how many records of this kind 
to expect in the group: 


1 = One and only one 
N = One or more 


17 


al 
z|> 
=16 
E 

5[d| 
18 fi 


fa \ Pasitian 12 {Ontion) indicates whathor tne 


= we Be te sw! .} 


in the group: 





Blank = Record is required 
O = Record is optional 


Positions 15 and 16 should have an entry for every record specified. If there is 
only one kind of record in a file, the entry should be character. If you fail to 
use a sequence entry, the compiler prints a message saying that no entry was 
made in positions 15 and 16. 


EXAMPLE 5 (STOKST): USING RECORD IDENTIFYING INDICATORS TO 
PROCESS DIFFERENT KINDS OF RECORDS 


Program Definition 


Print a stock status report. This report is printed whenever the inventory is 
updated. It gives detailed information on all active merchandise. The first line 
for each item in the report shows standard descriptive data for the item: item 
number, item description, quantity on hand, and quantity on order. This 
information is taken directly from the input record. 


Subsequent lines give the detail on current transactions involving the item: 
sales to customers and receipts from suppliers. This information is also taken 


directly from input recoras. 


Quantities remaining on hand and on order are calculated for each item and 
printed after all transactions for the item are listed. 


RPG Programming Language 89 


90 


Program Requirements 


Input: An inventory file consisting of three different types of records. 
Formats of the three record types are: 


Name ITEM MASTER RECORD 


tem tem Unit Quantity Gantity 
«| Number Description cost soy Gen 


SI | | n | | 
SYS YLT f foe we i win [2 ou af 0 [i [ee 5 [Tn Paes 


PEEEEEETECEEEEEEEET TEL EEEEEELL LEAL ELLE 


Two decimal positions 











Name _ISSUE RECORD 


( ltgm Quantity 
Number | Sold 




















4{5 [6] 7/8 [9 [io] nj] 13}04 [15 [16 | 17 [18 | i9 [20] 21 [22] 23] 24 [25] 26] 27 28| 29] 30 31 | 32 33 TTT TTT 


Name CE | PT 





1/21 3/4/5/6/7/8]9Jioli [iz] i3{t4 is jie] 17/18 [19 [20] 21 22] 23] 24] 25] 26] 27] 28] 29) 30] 31 [32133 [34] 35] 36 37 38 | 39]40| 41142] 43] 44145 [46 





The file is organized in ascending order by item number. For each item, one 
master record is required. Issue and receipt records are optional. When 
present, however, there may be any number of each. Records for each item 
must be in this order: 


1. tem master 
2. Issue(s) 


3. Receipt(s) 


Processing: 


e Find total number of each item sold. To do this, perform the calculation 
ISSUE + TOTAL ISSUE = TOTAL ISSUE for each issue record. 


e Find total number of each item received. Perform the calculation 
RECEIPT + TOTAL RECEIPT = TOTAL RECEIPT for each receipt record. 


e When ail transaction records for one item have been read, find new 
quantity on hand (ON HAND + TOTAL RECEIPT - TOTAL ISSUE = NEW 
ON HAND) and new quantity on order (ON ORDER - TOTAL RECEIPT = 
NEW ON ORDER). 


Output: A printed stock status report: 


STOCK STATUS REPORT 


IT&M NO DESCRIPTIIN © QUANTITY QUANTITY TRANSACTION 
ON HAND ON ORDER QUANTITY 


411116 B500 TWIN SOCKET BLUE 458 500 
ISSUE 50 
RECEIPT 


411122 B506 SOCKET ADAPT BRN 
ISSUE 
ISSUE 
ISSUE 


411173 Cl15iC SIL SWITCH IVURY 
RECEIPT 


411254 A210 PULL CORD GOLD 
ISSUE 
ISSUE 
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ARS ALee 


This printer spacing chart shows the format of the report: 
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Program Specifications 


RPG CONTROL AND FILE DESCRIPTION SPECIFICATIONS Che eee eee 


Printed in U.S.A. 
Business Machines Corporation 
75 76 77 78 79 BO 


¥ Lome] TT...) nnn 
A S a tied moll oS aS o Stokisir 
mn Doe [ IZIOf-— Lh fie | Tt | I 


Control Specifications 


For the valid entries for a system, refer to the RPG reference manual for that system. 













hal c 
< 6 
Ss Fa 
i=g oe 
& Fa 
7 els 
Number |= El. 









Size to 
Execute 







of Print | 


Positions}! TWO files are used for the program: one input and one output. In the program @ 
description given, the output file is a printer. The entry for the input device 
23 24 2511 depends on your system. 











= Listing Options 
an Symbol 

= Date Format 

~ Inverted Print 





12 13 3 






| |S Reserved 


| [8 Date Edit 


File Description Specifications 


For the valid entries for a system, refer to the RPG reference manual for that system, 


Ca File Addition/Unordered 

Extent Exit Number of Tracks 

for DAM for Cylinder Overflow 

Name of Number of Extents 

Label Exit Tape 

Overflow Indicator] iti 
Key Field ae 
Startin 


9 
Location 
Option | Entry 
53/54 565 56 57 58 59 160 61 62 63 64 65] 66) 67 











File Type Mode of Processing 











Length of Key Field or 


File Designation 
of Record Address Field 


End of File 
























Record Address Type 
Type of File 
N Organization or 
& Additional Area 





Symbolic 
Device 






Sequence 


Filename Device 











Labels S/N/E/M 


File Format 





Extension Code E/L 


V/O/U/C/D 
P/S/C/R/T/DIF 





| 





DO my 
| a 3 qi t 
to oped i i 
| eae key 


GX21-9004 UM/05u" 
Printed in U.S.A. 


75 76 77 78 79 80 


Pel Z io ao acon [SETOIKISIT] 
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Prom Stock Status 
[Progemme John Doe [on L/LD/-- | jxev | | | | ft | 


: External Field Name 
Record Identification Codes 





























































ae 
“ ae 
8 
ES eas | sali 
zi= . 2s] 3 
ti 6 : é : nd ee & Plus jMinus. 
olay |g i Position Q : ’ : : 5 3 : 3 
js lal osear se aie ale {26 7 (28 40141 3]44 45 46 47148 49 5u 51/52)53 54 55 56 57 58/59 6061 62163 64185 66/67 68169 70}71 72 73 74 
elt] [zitinipiuin | | ati [ie cM SH at thet bce HH 
eer RTE TT ETT ETT TTT tat Tit tell l T TTT TTT TT 
BOGE anERaRRe Rea RA PETE tat et tetsles PET TET TTT 
ele it TTT BREE RGRE ERR R ERE SEE FERRER ORERBE LEER 
COs ORR Meee ea eee COCO lo lalotovlded) COC 
els] txt TT tL 2inol2 SFE eae ET ees UT Pelee le aaa 
elt TTT ET au LETT TT att reel TTT TT 
ole eT TT ET LTE T TTT TTT ie alditisicwiest TTT TTT TTT 


EEG 
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All three kinds of records i in the input file must be described. Because they are to be arranged in a certain 
sequence within a group, they are described in the order in which they will be read. 















The first record in the group is the item master record (identified by M in position 1). The 01 in positions 15 
and 16 indicates that this record is first. The record is required (position 18 is blank), and there must be only one & 
per group (1 in position 17). It is assigned record identifying indicator 10. The fields are then described. Note 
that the record code appears as a field on the record layout form. However, on the Input Specifications form it 
is described not as a field but as the record identification code. 








The second record in the group (02 in positions 15 and 16) is the issue record, identified by | in position 1. There 
may be several of these records per group (N in position 17). The record is optional (O in position 18). The 
record identifying indicator 20 is assigned. Fields in the record are then described. 








The third record in the group is described as were the previous two. 






[TEMNO field in the item master record is assigned as the control field. When it changes, all records for a 
particular item number have been processed and the L1 indicator is set on. Sequence checking is not related to 
the control field specification in any way. Sequence checking is based only on the sequence specification. 
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RPG CALCULATION SPECIFICATIONS GX21-0083 | UM/050" 


Printed in U.S.A. 


IBM international Business Machines Corporation 
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To update the quantity on hand and the quantity on order, total number issued (TOTISU) and total 
number received (TOTREC) for each item are needed. Quantity sold is found only in the issue 
record. Thus, the calculation to find TOTISU is done only when the issue record is read. Record 
identifying indicator 20 was assigned to the issue record. When 20 is on (an issue record has been 
read), we can calculate TOTISU. Thus, the operation (line 01) is conditioned by indicator 20. The 
operation to find TOTREC can be done only when a receipt record is read. The operation (line 02) 
is conditioned by 30, the record identifying indicator assigned to the receipt record. 























Calculations to update the quantity on hand and the quantity on order are total operations and can 
{be done only after all transaction records for the item have been processed. They are conditioned by 
L1, which is set on when a new item number is read. 


The operations on line 06 and 07 must be used to clear the total issues (TOTISU) and total receipts 
(TOTREC) fields after the quantity on hand and the quantity on order have been calculated. 
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Heading lines are to print on every page. They are conditioned by 1P and OV indicators used in an OR 
relationship. 













| Not all detail lines are to print for each record. The first should be printed when the item master record 
| is read. It is conditioned by 10, which is the record identifying indicator assigned to the item master 
record. The second detail line prints when an issue record is read, so it is conditioned by 20. The 

third detail line prints when a receipt record is read. It is conditioned by 30. 











The printer spacing chart shows that the words ISSUE and RECEIPT are to print on the detail lines. 
These words are not fields, so they are entered as constants on the appropriate detail lines. Note that 
asterisks sibel Bee are also eItered as constants on the total line. 
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RESULTING INDICATORS 
Sometimes your decision to do a certain operation is based on the result of a 
previous operation. Resulting indicators allow you to specify which operations 
you want done and the conditions under which the operations are to be done. 
Resulting indicators can be used to determine such things as: 


e Whether a result is larger, smaller, or equal to a predetermined number. 


e Whether a certain result is plus, minus, or zero. 


Program Cycle Operations 


rigure 19 snows thé operations in the program cycie associaiea wiih resuiting 
indicators. Resulting indicators aré set wnen the associated Caicuiation 


operation is performed. This means that resulting indicators can be set either 
at detail calculation time or at total calculation time. 


Resulting indicators are not set off automatically. They change their setting 
only when a calculation is performed or when they are set off intentionally. For 
example, if a resulting indicator is set on by a detail calculation, it retains this 
setting until the next time it is used as a resulting indicator. 


START 






Perform heading 
operations. 
Perform detail 
output operations. 
If overflow line 
has been reached, 
set on overflow 


Perform detai! 
calculations. 




















indicator. 
Move data from record selected at * 
beginning of cycle into processing area. Set off control 
level indicators. 
Set off record 
identifying indicators. 
If overflow indicator is on, do 
overflow operations and set 
overflow indicator off. 
. Read a record. 
Program 
Cycle 
if LR indicator is on, end o1 
program has been reached. if last record, set on 
control level and LR 
indicators, and go to 
Perform total calculations. 
Perform total output operations. 
If overflow line has been reached, - 
set on overflow indicator. Set on record identifying 


indicator. 












Perform total 
calculations. 


Set resulting 
indicators. 






If change in control 
field, set on control 
- level indicators. 








Figure 19. Program Cycle Operations for Resulting Indicators 
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RPG Specifications 


The use of resulting indicators depends on the operation specified. If you want 
to determine whether the result field is larger, smaller, or equal to a certain 
number, you must use a compare (COMP) operation. If you want to determine 
if the result field is plus, minus, or zero, use an arithmetic operation (ADD, 
SUB, MULT, DIV). You can specify resulting indicators 01 through 99 on these 
specifications forms: 
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Resulting indicators are assigned at (1), then used to condition calculation 
Operations at (2) and output operations at (3). 


Resulting indicators and record identifying indicators are used in the same way 
to condition output and calculation specifications. You should not use the 
same entry as both a resulting indicator and a record identifying indicator. 


Using the Compare Operation 
In many programs you need to know whether a field is greater than, smaller 
than, or equal to another field. RPG has an operation code, COMP, that allows 


you to compare fields. The compare operation requires entries in these 
columns on the Calculation Specifications form: 


¢ Factor 1 (either a field name or a constant) 
e Factor 2 (either a field name or a constant) 


¢ Resulting indicators 
















Operation 





se 
_tclomiel | nn a 
Eaee PPLE EEE BRR GRE BREE 
PEE 
KREG ACHR ae PARA RER RRR EA AS RENAE R RAR eRe 


When compared, Factor 1 and Factor 2 can be in one of three relationships: 
¢ Factor 1 can be greater than Factor 2. 
¢ Factor 1 can be less than Factor 2. 


¢ Factor 1 can be equal to Factor 2. 
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You indicate that a test should be made to check for one, two, or all of these 
relationships by entering indicators in the appropriate columns: 


(1) A resulting indicator entered in positions 54 
and 55 tells the system to determine if Factor 
1 is greater than Factor 2. 


(2) A resulting indicator entered in positions 56 
and 57 tells the system to determine if Factor 
1 is less than Factor 2. 


(3) A resulting indicator entered in positions 58 
and 59 tells the system to determine if Factor 
1 is tne same as Facior 2. 





The test you specify is made each time the COMP operation is executed. 
However, the resulting indicator is set on only when the proper relationship 
exists. If you enter indicator 50 in positions 54 and 55 to test whether Factor 
1 is greater than Factor 2, indicator 50 is set on only when Factor 1 is greater 
than Factor 2. If the relationship does not exist, the indicator is set off. 


When testing for more than one condition, you can use the same or different 
indicators in these positions. If you intend to do different operations for each 
of the three conditions, enter a different resulting indicator to test for each 
condition on the Calculation Specifications form: 
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+ contents of the field TOTAL. If MAX is greater than TOTAL, indicator 
11 is set on and the operation on line 02 is done. If MAX is less than 
TOTAL, indicator 22 is set on and the operation on line 03 is done. If 


04 is done. Only the resulting indicator for the condition that is true is, 
set on. The other resulting indicators are set off. 
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If you want to do the same operations when either one of two conditions 
exists (Factor 1 is greater than Factor 2; Factor 1 equals Factor 2), you could 
use the same indicator to test for both conditions on the Calculation 
Specifications form: 
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We explained previously that constants can be used in arithmetic calculation 
operations, but they must be numeric constants. In a COMP operation, 
however, constants can be either character or numeric. Rules for using 
character constants as Factor 1 or Factor 2 are a little different from those 


using numeric constants: 





Rules for Numeric Constants Rules for Character Constants 

@ A numeric constant can be any @ Acharacter constant can be any 
combination of digits 0 through 9. combination of characters (letters, 
Decimal points and signs can also digits, and special characters). 
he included. Blanks are also valid. 


The maximum length of a numeric The maximum length of a 
constant is 10 characters, including character constant is 8 characters. 
sign and decimal point. 


Numeric constants must not be Character constants must be 
enclosed in apostrophes (’). enclosed in apostrophes (’). 





When you use COMP operation code, always remember to compare two 
numeric fields or constants or two character fields or constants. You cannot 
compare a numeric field or constant with a character field or constant. 


Using an Arithmetic Operation 


You can test the results of an arithmetic operation (ADD, SUB, MULT, DIV) for 


plus, minus, or zero by entering resulting indicators in the appropriate positions 
on the Calculation Specifications form: 


(1) A resulting indicator entered in positions 54 and 55 
pnt tells the system to determine if the result field 
is positive (plus). 


(2) A resulting indicator entered in positions 56 and 57 
tells the system to determine if the result field 
is negative (minus). 





A resulting indicator entered in positions 58 and 59 
tells the system to determine if the result field 
is zero. 


The tests you indicate are performed each time the operation is executed. 
However, the assigned indicator is set on only if the field satisfies the 
condition tested. If you enter indicator 99 in positions 54 and 55 to test the 
result field for plus, indicator 99 is set on only if the result field is plus. If the 
condition is not met, the indicator is set off. 


102 


Again, as with the COMP operation, you can test for one, two, or all three 
conditions at the same time. When testing for more than one condition, you 
can use the same or different indicators in these positions. If you intend to do 
different operations for each of the three conditions, enter a different resulting 
indicator to test for each condition: 
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If you want to do the same operations when the result field meets either one 
of two conditions (plus or zero, minus or zero), you could use the same 
indicator to test for both: 
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EXAMPLE 6 (STOKST): USING RESULTING INDICATORS TO TEST 
CONTENTS OF RESULT FIELDS 


Program Definition 


Print a stock status report similar to the one in Example 5. The only difference 
is the addition of maximum and minimum balances. Item master records 
usually include the maximum and minimum on-hand quantity for all items. 
These figures are kept so that checks can be made, whenever the inventory is 
updated, to determine if quantity on hand ts within the limits set. 


The first line for each item in the report shows standard descriptive data for 
the item: item number, item description, quantity on hand, quantity on order, 
maximum and minimum balances. Subsequent lines give the detail on current 
transactions involving the item. Quantities remaining on-hand and on order are 
calculated for each item and are printed after all transactions for the item are 
listed. Whenever shipments reduce stock on hand below the predetermined 
minimum balance or whenever receipts push the quantity on hand above the 
predetermined maximum, an exception condition is noted on the report. 
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Program Requirements 


Input: An inventory file consisting of three different record types. Formats of 


the three record types are: 


Name _ITEM MASTER RECORD 


UNIT [QUANTITY] QUANTITY MAX | MIN 
cost ON ON | BAL | DAL 
| HAND | ORDER 





an baal aa 


G28} 503i | 32 | 3 34 35] 36 37 [36 | 38] 40] 41 [42] 43] 44 [45] 4897 [98 199] 9051 92193 [54] 95] 96] 97 [58 ]50) 60 


Two decimal positions 


Name 155 E ECO 





15 [i6 [17 [18 [i9 | 





20] 21] 22/23/24] 25|26 | 27] 28/29] 30 | 31 | 32/33 |34/ 35) 36/37 138] 39/40 |41 [42/43 /44]4s [46 47 [4a [49|50]51 [52153 |5 





54/55[56|57 [58 [59/60 | 





EYERENEENESEETEL 


The file is organized in ascending order by item number. For each item, one 
master record is required. Issue and receipt records are optional. When 
present, however, there may be any number of each. Records for each item 
are in this order: 


1 item master 
2. Issue(s) 


3. Receipt(s) 


Processing: 


¢ Find total number of each item sold. To do this, perform the 
calculation ISSUE + TOTAL ISSUE = TOTAL ISSUE for each issue 
record. 


¢ Find total number of each item received. To do this, perform the 
calculation RECEIPT + TOTAL RECEIPT = TOTAL RECEIPT for each 
receipt record. 


« When ail transaction records for one item have been read, find new 
quantity on hand (ON HAND + TOTAL RECEIPT - TOTAL ISSUE = 
NEW ON HAND) and new quantity on order (ON ORDER - TOTAL 
RECEIPT = NEW ON ORDER). 


¢ Compare the new quantity on hand to maximum and minimum 
balances to determine if an exception condition should be noted on 


the report. 


Output: A printed stock report: 


STOCK STATUS REPORT 


ITEM NO DESCRIPTION QUANTITY | QUANTITY = TRANSACTION MIN.  MAXe 
ON HAND ON ORDER QUANTITY BALe BAL e 
411116  B500 TWIN SOCKET BLUE 458 500 800 1600 
ISSUE 50 
RECEIPT 500 
9087+ Qs 
411122 _B506 SOCKET ADAPT BRN 325 0 300 800 
ISSUE 20 
ISSUE 38 
ISSUE 10 
257#% Qs UNDER 
#11173 C1S1C SIL SWITCH IVORY 50 150 100 ~=—.200 
RECEIPT Iso 
200% Ox= 
411254 A210 PULL CORD GOLD 62 75 60 165 
ISSUE 16 
ISSUE 30 
16+* Tos UNDER 
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This printer spacing chart shows the format of the report: 
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Program Specifications 


RPG CONTROL AND FILE DESCRIPTION SPECIFICATIONS GX21-9092,_ UM/050" 





Internat:onai Business Machines Corporation 


omn Stock Status 





| Programmer 02 Date { 1d -- Instruction 


Size to 
Execute 


Currency Symbol 
Date Format 


Listing Options 
Date Edit 


Inverted Print 


Pay Output 
Reserved 
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Printed in U.S.A. 





1 2 75 76 77 78 79 80 


Program 
f 
race Slo __—_— Identification STOKS 







Card Electro Number 


on em DTT 
pee oes 


Control Specifications 


For the valid entries for a system, refer to the RPG reference manual for that system. 


Number 
of Print 
Positions 


Reserved 


Reserved 

Sign Handling 

1P Farms Position 
Indicator Setting 
Fite Transtation 
Punch MFCU Zeros 
Nonprint Characters 
Reserved 

Table Load Halt 
Shared 1/O 

Field Print 
Formatted Dump 
RPG to RPG It Conversion 
Number of 

§/3 Conversion 
Subprogram 
CcICS/DL/I 
Transparent Literal 


SS Reserved 
Alternate Collating Sequence 


23 24 25126|27 28 29 30 31 32 33 34 35 36/37/38 39/40 57158 59 60 61 62 63 64 6&5 66 67 68 69 70 71 72 73 74 
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File Designation 
End of File 


Filename Sequence 


File Format 
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Promen Stock Status 
Prove Tohn Doe joe I/IQ/-- _ CAA ae eee 





















File Description Specifications 
For the valid entries for a system, refer to the RPG reference manual for that system. 
Mode of Processing File Addition/Unordered 


Length of Key Fieid or Extent Exit Number of Tracks 
of Record Address Field for DAM for Cylinder Overflow 


Name of Number of Extents 
Label Exit 


Record Address Type Symbolic 
Type of File Device 
Organization or 


Additional Area 


Tape 
Rewind 
File 
Condition 
U1-U8, 
Continuation Lines uc 


Labels S/N/E/M 


Storage Index 


Overflow Indicator 


Key Field 
Starting 
Location 


External Record Name Option 


22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 33139] 


oH TTT TT | 
| bali lity 


Record 
Length 


Extension Code E/L 


t/X/D/T/R/ or 2 
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ik Program 
Poo l(D “ig identification |SiTIOlKLSIT! 
External Field Name 
z Field Location 
Record Identification Codes 


Field Name a; 
Data Structure £ Plus jMinusj or 
21 22 23 24 29 30 31 33134135 36 37 38 1442]43]44 45 46 47148 49 Su 51452953 54 55 56 57 58/59 8061 62163 64/65 66167 68/69 70/71 72 73 74 
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Position Position Position 






Stacker Select 
Decimal Positions 
Control Levet {L1-L9) 
Matching Fields or 
Chaining Fields 

Field Record Relation 


Character 





2 Character 
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No new functions are described on the 
Input Specifications form. 
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IEM.... RPG CALCULATION SPECIFICATIONS GX21-9083 _UM/050° 


Printed in U.S.A. 
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‘2 Decimal Positions 
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c 
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' Control Level (LO-L9}, 
ac) SR, AN/OR) 
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elt dee TT Ie Mion TREC! | | |W 
ecu TTT owe: TTT sul Tore es [TT bleh [i 


O16! ICE it Seanit CJDIMID 


TTT | oiNAIANIDl | | 
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PCE TCA 
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DORCRERRE we 


Calculations on lines 01 through 05, 08, and 09 are needed to update the quantity 
on hand and the quantity on order. See Example 5 for an explanation of these 
entries. After the new quantity on hand (NEWONH) has been calculated, it is 
compared with MAX to see if it exceeds the maximum limits set (line 06). 
Indicator 99 in positions 54 and 55 specifies a test to determine whether Factor 1 
(NEWONH) is greater than Factor 2 (MAX). If NEWONH is greater, indicator 99 
is set on. On line 07, NEWONH is compared with MIN to see if the quantity on 
hand is less than the minimim set. If it is, indicator 88 is set on. 
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54 Shige azlee salao a1 62 42 84 #5 88 67 GA AD 70 71 72 73 74 
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GX21-9090 UM/os0" ee 
Printed in U.S.A. 






pest Resulting indicators, which indicate whether the new quantity on hand exceeds the | Ht 
nT el tT TT maximum or is less than the minimum, are used on the Output Specifications form to tell eee 
Peo TTT TT when exceptional conditions should be noted. Notice that, on the total line, the words - == 
aa UNDER and OVER print only when conditions set by the conditioning indicators are aia 

* | met. UNDER prints when indicator 88 is on. Remember that 88 is set on when hid 

P| Tol t | | | | |} NEWONH is less than the minimum. OVER prints only when 99 is on; that is, when (aa 


NEWONH is greater than the maximum. 
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FIELD INDICATORS 


Field indicators, like resulting indicators, are used to test the contents of a field 
and to condition operations based on-the results of the test. 


Program Cycle Operations 


h field 


igure 20 shows the operations in the program le associated wit 
indicators. Note that input fields are tested and field indicators are set to 
reflect the result of the test at the time data is moved into the processing area. 
Field indicators are not set off at the end of the program cycle. If a field 
indicator is set on when data is moved into the processing area in the first 


cycle, it is not reset until the appropriate field is moved into the processing 
area in a subsequent cycle. 


E ame one moun +h 


tate hid 


START 









Perform heading 
operations. 

Perform detail 
output operations. : 
if overflow line 
has been reached, 
set on overflow 


Move data from record selected at indicator. 
beginning of cycle into processing area. 


Set field indicators. 


Perform detail 
calculations. 
Set resulting 
indicators. 



















Set off control 
level indicators. 

Set off record 
identifying indicators. 






If overflow indicator is on, do 
overfiow operations and set 
overflow indicator off. 


Read a record. 


Program 
Cycle 





If LR indicator is on, end 


of program has been reached. if last record, set on 


control level and LR 
indicators, and go to 
Perform total calculations. 





Perform total output operations. 
If overflow line has been reached, 
set on overflow indicator. 





Set on record identifying 
indicator. 










ite 








Perform total 


calculations. if change in control 
Set resulting field, set on control 
level indicators. 


indicators, 


Figure 20. Program Cycle Operations for Field Indicators 
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RPG Specifications 


Make these RPG specifications when you use field indicators: 
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Field Location 
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IEM RPG OUTPUT SPECIFICATIONS Gx21.9090 | UM/0S0" 
“* International Business Machines Corporaton :% Printed sn U.S.A. 
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X = Remove 
Plus Sign 
Y = Date 
Field Edit 
Z = Zero 
Suppress 


IRIN SINICA EIICR NST SIE N 






Output Indicators 
asia Name 
















Filename 
or 
Record Name 










End 
Pasition 
in 


IL} § Ea . 
th Output 
*AUTO S/d} Record Constant or Edit Word 
"12 3 4 5 6 7? & 8 10 11 12 13 14 18 16 17 18 19 20 21 22 23 24 °° 
iti PELE CCC eeC EEE cece: 
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nt PCH MOPAR RU RAO MARR E RARER RRR EES 
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Field indicators are assigned at (1) . They may be used to condition calculation 
operations at (2) and output operations at 
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You can enter any one of the indicators 01 through 99 in positions 65 through 
70 of the Input Specifications form to test an input field. You may assign 


indicators to test for three possible conditions: 


Field 
Indicators 


Zero £ 
Pius {Minus} or 


© 


©) 


A field indicator assigned in positions 65 and 66 
tells the system to determine if a numeric 
input field is positive (plus). 


A field indicator assigned in positions 67 and 68 
tells the system to determine if a numeric 
input field is negative (minus). 


A field indicata: 


ra 
tells the svstem ta determine if a character input 


field is blank or if a numeric field has a value of 
zero. 


EXAMPLE 7 (AGETB): USING FIELD INDICATORS TO TEST CONTENTS OF 
INPUT FIELDS 


Program Definition 
Create an aged trial balance report that lists: 


e Name and customer number of all charge customers who have payments 
due. 


« Amounts due. 

e Overdue balances. 

The customer master file, which contains records for all customers regardless 
of their balance, is used as the input file. The report is to show only those 


customers with payments due. Thus, information from customer records that 
contain a zero or credit balance should not be printed. 
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Program Requirements 


input: A customer master file consisting of one record type: 


60 


Davs 


ways 


Overdue Overdye 





Processing: Check input balance due fieia for zero of Credit balance (use fieid 
indicators). 
Output: A printed aged trial balance report: 


AGEO TRIAL BALANCE 


CUSTOMER 
NUMBER 


10867 
16535 
17849 
18978 
24743 
25271 
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CUSTOMER 
NAME 


ALLEN & COc 

ANDERSON AUTO SUPPLY 
ANDREWS AND SUNS INC 
ARGONAUT ENGINEERING 
BERKLEY PAPER CO 
BEST OISTRIBUTION CO 


This printer spacing chart shows how the report is formatted: 
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v7 
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CHARGES 


6e919eT7 
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2e1l1ll.30, 
12185250 
3225 


OVERDUE ACCOUNTS 


30 NAYS 60 OAYS 


375258 
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312.13 
19400495 


611454 
296592045 
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Program Specifications 


RPG CONTROL AND FILE DESCRIPTIO 







ed iru 





; Keying 
,  {nstruction 





Control Specifications 


Number 


of Print Reserved 


Positions 


Alternate Cotlating Sequence 


Nn 
D 


31 33 34 35 3 


Pome nn 
a a 


N SPECIFICATIONS 


GX21-9092 UM/050° 
Printed in U.S.A. 


75 76 77 78 79 80 
AGETB | 


Program 
Identification 


1 2 
Page DL of 


For the valid entries for a systern, refer to the RPG reference manual for that system. 


Number of 
o Formats 


mn 
Nn 





File Description Specifications 
















File Type Mode of Processing 













Length of Key Fieici or 
of Record Address Field 


File Designation 


End of File 






Record Address Type 








Filename Sequence 








Type of Fiie Device 


Organization or 











File Format 













Extension Code E/L 






yt Additional Area 
a 

= Block Record Overflow Indicator 
~~ 

@] Length Length Key Field 
= Starting 
Lae Location 














Filename 
or 
Record Narne 


12 


ry 






















be . 
oly palstriee! Wst oul Lal em TL LN RDES HARMEN AUBGRARLURRAREERR OG READ 


For the valid entries for a system, refer to the RPG reference manual for that system. 






File Addition/Unordered 
Extent Exit 
for DAM 


Storage Index 


Continuation Lines 


Option Entry 
53} 54 55 56 57 58 59 ewe 66 












Number of Tracks 
for Cylinder Overflow 






Name of 
Labei Exit 






Symbolic Number of Extents 


Device 


Labels S/N/E/M 






Tape. 
Rewind 
File 
Condition 
U1-U8, 


uc 


69170] 71 72 


GX21-9004 UM/060° 
Printed in U.S.A. 
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RPG 
Fieid Name 


Control Level (L1-L9} 
Matching Fields or 


2 Chaining Fisids 


71 72 73 74 


DOOR REESTEAR SERA RORARR ARR ORRE RR ORE CoE are asada TT 


To prevent listing customers who have a zero or credit balance, 
we must know if the current charge field (CHARGE) or the 
overdue fields contain a plus amount. Indicators 96 through 99, 
specified in positions 65 and 66, test the fields for these 
conditions. These indicators are set on when the fields are plus. 


Note that the record identification code has been described 
(positions 21 through 27) and a record identifying indicator 
assigned (positions 19 and 20). This should always be done 
ieven though there is only one record type per file. 
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SBM cee cumnecene RPG OUTPUT SPECIFICATIONS fame cuex 
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: : Bo Zero Balances = Remove 
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i Name {FE 
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Z = Zero 
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Filename 
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Pio TTT Tt a ee let ET TT 
PPT to TTT Pole TTT Pow ETT TT TTT TTT TET 
PPT TTT TTT TTT TET ET Tat loi ET 
a ee ee 
Dod weed PET ETT TT TTT TET TET TET teil siete | Tt iewaleieeis! | |) ttt 
'{6| fo SISOOAUOG00GS0SRSNECRNANRERORORATCORGC’OCT.CUSUSROEEESGRARAAOERAAE 
Pion TTT TTT TT TET TTT TT fatale [Nel [olalyis! | || oid pays | | | 


DE ces Gees RPG OUTPUT SPECIFICATIONS cassis: 


Printed in USA 
75 76 77 78 79 86 


pot Card Electro Number p = 
te GE | ide LOT 


ca Output Indicators 


: 
£ 
248s 
tet 












Field Name 


Filename 
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Record Name 
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ee TOC TT labde CET } CHARGE and overdue fields for a plus 

lal CTO Te alelr ipa 11 le condition, are used to condition detail records. 
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Pert TTT TH EEE EE PE fee See ee enlng 
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| (one that may have accidentally gotten into- 


Don ReeeaRee 
Hei fl ETT ETT PCCECEE SEE} (the file) 
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Conditioning Operations by More Than One Indicator 


In this chapter, you have learned about many different kinds of conditioning 
indicators: control level, first page, overflow, last record, record identifying, — 
resulting, and field indicators. In many programs you use two or more 
conditioning indicators. Indicators used together can be in either an OR or 
AND relationship. 


You have already read about indicators in an OR relationship. You learned that, 
if, an operation can be done when either one of two conditions or both 
conditions exist, you can specify the conditioning indicators like this: 


= een anne RPG OUTPUT SPECIFICATIONS 


cos Pomme | [TTT [TJ eaticronanse 
SC = 










Output Indicators 


B This line is written when either 
ert doe do a ee | 
MoT TT Tide TTT Plow [= indicator 1P or OV is on. 


Filename 
or 
Record Name 


ee 
BBG: EGSRA ERR BER OR AURA NGRE 


This line is written when either 
indicator 10 or indicator 20 is 
on, or when both are on. 








RPG CALCULATION SPECIFIt 






18 19 20 2t 22 23 24 26 26 27 28 29 30 31 32]33 34 36 38 37 38 30 40 41 42 “4 & 
aoa TTT TTT eT This calculation is performed if 
D3} Iunidalcoisir| || Lt ult] fralel(! | | | indicators 1 and 2 are on and 3 is off, or if 
Pe ioesch einige EMRE MIAPCS EGG cg ee 
PE RSERER ERE RAR GRE AEE RRR EE 


Conditioning indicators can be used in the OR relationship on both the 
Calculation Specifications form and the Output Specifications form. 
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If you specify two or more conditioning indicators on one line, they are in an 
AND relationship. The AND relationship means that all conditions must be 


satisfied before the operation is performed: 


TBM ee sane cn cone 


Instruction 


Operation 









1S ner ee one RPG OUTPU 
Hada Keying {| Graphic | 
| Programme fae eet ee 
e 
wi 3 a Skip Output Indicators 
eye Field Name 
gi= or 
Filename Zlzle 
g a 32 EXCPT Nar 
> TR | 


or 
Record Name 


Ae 
a * AUTO 
hile marumemele ale 19 20121 22 Ese 22 Se ee 


DUS CHSSNABEASUNMSMNRACRTCsoG ee 
SDRC HREREEER RARE MARR RRS 

es to mm eet eld al 
el TTT 
COR CRRGRE RRR CAT RERRMER BER AnRase 
DOG URRRE BER SAAR RARE REA E RS Maa 
OR RAR REESE ARERR RED RAE REEREEE 





RPG CALCULATIOI 


This oneration ts performed 
when 10 is on and 20 is not on. 


This operation is performed 
when L1, 10, 15, and 99 are all on. 


This operation is performed 
when L1 is on and 15 is not on. 


= This detail line is written when 


15 and 10 are both on. 


This total line is written when 
L1, 10, and 15 are all on. 


If your calculation or output operation must be conditioned by more than three 
indicators, additional indicators can be specified on the next line if AND is 
entered in positions 14, 15, and 16 of the Output Specifications form or AN is 
entered in positions 7 and 8 of the Calculation Specifications form: 










5) ae cane RPG OUTPUT SPECIFICA 


Keving | Graonie | ||| 
[Programme tte | tmmetion’ key TT TT 






Output Indicators 
Field Name [ft 
. or : 
Filename EXCPT Name [FE 
“or An jy | fa 
Record Name TT esl 
‘0, 


Type (H/D/T/E} 
|} Stkr #/Fetch (F 


HE Five indicators used in an AND relationship 


id 
LO} E | 
—— ere |: condition this detail record. Three indicators 
a Gia Beka sates are specified on one line; the remaining are 


Fy] {fig luted fzizi tty ft] specified on the following line with the word 
LT ast leh TLL ET 


AND in positions 14 through 16. Indicators 10, 
11, 12, 15, and 16 must all be on before the detail 
line will be printed. 





i 

a E 
LETT TTT ITT Ieolsin | | 
BESRERE RADE RRREEE 


RPG CALCULATIO 


IBM Internationa Susiness Machines Corporation 


rove dg ne TY 
ee Ce 







| Operation 






19 13 20 21 22 23 24 25 26 27128 26 30 31 32533 34 36 36 37 38 : - 7 ~ « 
TPE LEL TEP This calculation operation is done only if 
lelds7] f] ]]] Mivicin: ira! | indicators 25, 30, 31, and 90 are on and 
Pa Teo leheeb ty Woalctey bel 91 is not on. Note that the operation is 
Bete bale, cle) al ebe lee Lalbete lulled: specified on the AN line. 
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Chapter 3: The Programmer's Job 


Your responsibilities as a programmer include: 


¢« Determining the program requirements 


e Determining what RPG specifications and program cycle operations are 


needed for the program 
e Writing the specifications 


e Documenting the program 


e Preparing your source program for compilation 


« Compiling the source program 


e« Testing the program 


DETERMINE THE PROGRAM REQUIREMENTS 


The requirements for a program are generally described in terms of the input 
provided and the output required. The following paragraphs and illustrations 


describe the program requirements. 


An invoice is to be prepared like that shown below: 


ACCOUNT NUMBER 09621 


NAME SMITH MANUFACTURING 


ADDRESS 13620 9TH ST NE 
BERNALILLO 
NEW MEXICO 56120 


SHIPPING INSTRUCTIONS BY AIR 


ITEM NUMBER DESCRIPTION 


439167 SHEARS 
629408 GASKET CORK 


102139 SPRIDGET WHITE 


INVOICE 


QUANTITY UNIT PRICE 
100 27¢56 
3000 Lel5 


50 #50200 


INVOICE TOTAL 





AMOUNT 
2915be 00 
39450200 


379500200 


2129157292 
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The input file contains two types of records: name/address records for all 
customers who made purchases on credit during the month and transaction 
records for each item purchased by the customers during the month. The 
name/address and transaction records look like this: 


Name NAME/ADDRESS RECORD _ 








gi [62[63164]65 [66/67/68 69 


80) 8! [82 3 | 84] 85/86 | 87/88) 89/90) SI [92/93/94] 95] 96 


Shipping code (1, 2, or 3) 


Name TRANSACTION RECORD 


ik 

jw \Accounr DESCRIPTION |QUANTITH Pesce 

| 

AWUMBER Num BER l 

‘YQ | 

V = ee | 

“VheTataysle [te] 9 [idl [2] ayia (is [ie 7 lta lis 20121) 20" 08/247 25, 26, 27| 28] 29, 30” 31 [32] 33 [34] 35] 36,37 38) 39/40/41 (42/43 [44/45 [46 47 [48 149 50/51 |52 53 54]55]56 157 58 59.64 





+ 


The input file is organized so that all transaction records for a customer follow 
the customer's name/address record. Each customer has one name/address 
record but might have one or more transaction records. 





«— Name/Address Record 
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Standard computer paper is to be used for printing tne invoices. Each invoice 
should be formatted like this: 


















HUANG ONEEN BUUESANGNOUATRAGEEAAL ivy ReAER ET _ 
iA PPRES S$ SOOreo aed Sone XX _CADDRIESS | ici 
(ans + KN REALE, CAPD RIES SLA 


CEN) ie XDI (AZO R 3 
} cis . | 


SSUGESSN EGRESS EERE: ee MR CAmuRDTOReeeaaaes 
"BBB IGT fe TMSTRICT ONS KOOL CRY AIR, BY _TPRUCK, OR BY RALLY SOGSRENE00 

= shia eg ONS GPE cided HPREORRS i URDEE SHEETS ee ee ee 
a fesiatad onal fonuet focasesaadGd ae | aaanrcre ART fe awoodt TT 


| 


fo oan eS eee tA 7 weet te oo BEvETERESIE 
D [23 SR vate 7 XXX IIR XX XXXXK RNS 60h) GMaOSEERE 
125 A TrEMAGY— 1 CHESERE : "I L (QTY west U. PRICE) 1 Tam OONT 









pon 
rv eTE icé Tata HS KKK KKK NK 
SuuPONSESL SEBESOEDEST ©7116 1-114) eaceass ies 


Nesp sepa A a 


yt ; ; - 
35]. | | a : odes 
-— 6 ‘ = ee ee coe ecm ae alien all on eee fae aoe > SS aie 
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Your first step is to analyze the problem and decide what processing must be 
done to get the desired results. Always keep in mind how things are done 
using RPG. In your analysis of the program, you would probably think of these 
points: 


e Information for the first part of the invoice is taken from the name/address 
record. Information for the second part (list of transactions) is taken from 
transaction records. 


¢ Before shipping instructions can be printed, the shipping code recorded in 
the record must be determined: 


1 = By truck 
2 = By rail 
3 = By air 


e AMOUNT and INVTOT (invoice total} must be calculated because this 
information is not in the input records. These calculations must be done for 
all transaction records: 


QTY x UPRICE = AMOUNT > 
AMOUNT + INVTOT = INVTOT 


e INVTOT should be printed only after all transaction records for one account 
have been processed. 


« The invoice for each customer must be on a separate page. This means that 
forms must advance each time a new customer name/address record is 
found. It is possible that one customer has purchased so many items that 
they cannot be listed on one page. In this case, forms should advance 
when the end of a page is reached. When an invoice includes more than 
one page, headings shouid be printed on ail pages. 
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DETERMINE RPG SPECIFICATIONS NEEDED FOR THE PROGRAM 


After you have carefully analyzed the requirements, determine what RPG 
specifications and program cycle operations you need. For example, consider 
the following: 


« Several kinds of records are in the file. This means that record identifying 
indicators must be specified to tell what to do for each record. 

e The shipping code must be determined. One way to do this is to compare 
the shipping code to 2. Through the use of resulting indicators, you can 
determine if the code is less than 2 (1), greater than 2 (3), or equal to 2. 


¢ INVTOT ts printed only after all transaction records for one account have 
been processed. Ihis is a total operation, done only after a group of 
records has been processed. Therefore, control fields and control level 
indicators must be used to do a total operation. The account number field 
can be used as the control field. 


« Forms should advance each time a different name/address record is 
encountered or whenever overflow occurs. Thus, heading lines must be 
conditioned by a record identifying indicator and the OV indicator. 


If the indicators and steps just listed are used, the RPG program cycle would 
include the steps shown in Figure 21. 


START 






® 
: Perform detail 
calculations. 
Set resulting 
indicators. 









Move data from record selected at 
beginning of cycle into processing area. 
Set field indicators. 





® 


If overflow indicator is on; do 

overflow operations and set 

overflow indicator off. 

Program 
Cycle 





lf LR indicator is on, end of 
program has been reached. 





Perform total output operations. 
If overflow line has been reached, 
set on overflow indicator. 














Perform total 
calculations. 
Set resulting 
indicators. 


(1) Did account number change? 


if change in control 
- field, set on control : 
: fevel indicators. 


®) 


Perform heading 
operations. 
Perform detail 
output operations. 
If overflow line 
has been reached, 
set on overflow 
indicator. 







Set off control 
level indicators. 

Set off record 
identifying indicators. 





Read a record. 





if last record, set on 
control level and LR 
indicators, and go to 
Perform total calculations. 





Set on record identifying 
indicator. 











(2) Print total only after all transaction records for one customer 


have been processed. 


(3) Print all heading lines if overflow occurs. 


4) The operation to find shipping instructions can be done only 
for name/address records. The operations to find AMOUNT and 
INVTOT can be done only for transaction records. 


() Headings for the invoice can be printed only when name/address 
records are read, and detail lines can be printed only when 
transaction records are read. 


Figure 21. Program Cycle Operations for Sample Job 
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WRITE THE SPECIFICATIONS 


After you have analyzed the problem and determined how to solve it using 
RPG, you can write the specifications. Figure 22 shows the specifications for 
the program. 


RPG CONTROL AND FILE DESCRIPTION SPECIFICATIONS GX21-9092 _UM:050° 


IE Prunted in LU S.A. 
. internationa Business Machines Corporation 


; V2 75 76 77 78 79 80 
| Pipatoat Taaai 2 Drenaration wets Graphic Card Electro Number coTT od carts ooo 









srieeeisetion ae @ l . — identdiGarien | 1 IN| ) [O/C] E.| 


Control Specifications 


For the valid entries for a system, refer to the RPG reference manual for that system 
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File Description Specifications 


For the valid entries for a system, refer to the RPG reference manual tor that system, 













Forte Addition Unordered 





File Type Mode of Processing 












Extent Exit 
for DAM 









Length of Key Fietd of 
of Record Address Field 







Number of Tracks 
tor Cylinder Overtiow 


File Designation 





















Name of 
Labei Exit 


Record Adutess Type 






Number of Extents 








Symbolic 
Device 







Filename Device 







Type of File 
Organization or 


Tape 
Rewind 





2 





Labels S/N/E/M 

























Extension Code E-L 








Location 






3S Additional Area Storage Index 
Line Me = File 
a e Overtlow Indicator Condition 
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| [ear 2 
7) _ 
oa 


1/0/U/C/D 


K Option Entry 
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RPG INPUT SPECIFICATIONS GX21-9084 UM/0B0° 


Printed in U.S.A. 


‘ 75 76 7? 78 79 80 
rogram 
rangi a re uteation LLIN|V[O[ClE] [TINV[O[clE] 


ee Internationa Business Mechines Corporetien 









Preparation | Grobe | || Lt ||| Cord taco Number 
ere" Ware seea Ae le es 
Filename 


External Field Name 
or 
Record Name 
Line 
3 4 slel? 8 9 1011 12 


: bie | 
eaeer Indi cs 

Record Identification Codes bie | sare 

1) 1 ec | 
J 7 ; Field Name 
« Data S$ Plus jMinus| or 
Position iti i Fd 
@! Occurs : ec} 
& 1 on Times 
20421 22 23 24 33] 34/35 36 37 38/394 3144 45 46 47148 49 Su 51152153 54 55 56 57 Salso Bole: 62163 64! 65 Bale? selss 7ol71 72 73 74 


Rexen cw OTL SEAAIERERECUSAASESEENSSERUSUUUUIERE 

id HH Litt att | e@acenwo Wal tT TT 
HCA ed ware 
Hitt iz | wel pppoe | tt Tt 
iti bat 72 Woven | tt ttt 
; ESeene 






















































Character 

Stacker Select 
Matching Fields or 
Chaining Fields 

Field Record Relation 
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& c/2z/od 
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—_ 
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RPG OUTPUT SPECIFICATIONS GX21.9090_UM’050° 


aternarona: Bus-ness Machines Corparation Printed in USA 
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see TIN V iO ic | 


ae sts 


InM 

















Program Graphic 


Keying 
Instruction 








se amen ns ere 












































X = Remove 
Field Name lf Pius Sign | 69 
or Y Date icae 
.| Filename EXCPT Name Field Edit 
End : Defined 
2| or iH a Zz = Zero 
Lire JE} Record Name leis Position Suppress | 
k rT T3IET Oooo {S 
| sl | fel | lel nese fal : 
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DOCUMENT THE PROGRAM 


An important part of every programmer's job is to explain his program. This 
documentation provides information for people who will run the program and 
for programmers who may later need to alter or update it. Documentation is 
also useful to you. it is not always easy to remember what every program you 
wrote does. Reading documentation is a much easier way to recall the 
program than figuring out each instruction. 


Documentation consists of: 
1. ‘Telling generally what the program does. 


2: Describing input and output. (Record layout forms and printer spacing 
charts are an excellent means of describing input and output.) File names 
and field names should be meaningful. 


3. Explaining the coding. 


4. Telling the operator how to run the program, what to do if the system 
stops because of an error, and what to do when the program ends. 


Not all documentation can be done at the time you write specifications. 
However, when writing your specifications, you can also write an explanation 
for a line or lines of coding on the specifications forms. You have probably 
noticed positions labeled Comments on the specifications sheets. Here is 
where you write an explanation for your coding. 


In addition to using the comment positions on the coding forms, you can use 
comment lines. A comment line is indicated by an * (asterisk) in position 7 of 
the coding form: 


TM RPG INPUT SPECIFICATIONS GX21-0004 UM/060" 


Printed in U.S.A. 
76 76 77 78 79 

Program 
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Indicators 
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Comment lines can be used anywhere on any specifications form. There is no 
limit to the number you can use. The RPG compiler does not regard comments 
and comment lines as part of the program. Therefore, the compiler does not 
translate the comments into instructions; however, the lines are printed as part 
of the source program listing. 


PREPARE FOR COMPILATION 


After completing your source program, you must prepare it for compilation. 


Specifications Form Order 
Your specifications forms must be in this order: 
1. Control and File Description Specifications form 
2. Input Specifications form 
3. Calculation Specifications form 
4. Output Specifications form 


Number the forms in positions 1 and 2. At this time, you might also check to 
see that the top part of each form is completely filled in. 


If you are planning to give these specifications to someone to key, it is a good 
idea to fill in the box labeled Keying Instructions: 





RPG CONTROL AND FILE DESCRIPTION SPECIFICATIONS 


F | Card Electro Number 


IBM international Business Machines Corporation 












Program 





Keying 
{Instruction 





Programmer Date | 





i 
a i 





You indicate in this box the graphic symbols you are using and their meaning. 
Some printed letters and numbers are easily confused. For example, it is 
sometimes difficult to differentiate between the number O and the letter O and 
between the number 2 and the letter Z. You may, therefore, devise a graphic 
symbol that you use for certain letters. Some people use @ for zero, Z for the 
letter Z. Explain your symbols so that the operator will know what to key when 
the symbol appears on the coding forms. 
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Control Specifications Preparation 


Some systems require control specifications. If yours does, you have to fill out 
the control specifications at the top of the Control and File Description 
Specifications form. 


Control specifications give the compiler information about the system and tell 
whether any special RPG functions are used in the program. The following 
entries are typical. 


7——1P forms control allows the operator 
to position forms at the beginning 
of program execution. 


RPG CONTROL AND FILE DESCIRIPTION SPECIFICATIONS GX21-9092 _UM/050° 


Printed in U.S.A. 


Card Etectro Number _ Pp 19 78 31 82 
| The. | | | ae { f | a rogram | | | | [ 
Lid 


___ Identification | | | | | jd 


IBM International Business Machines Corporation 


| Program 
| Programmes 







Keying orem ace 


Instruction Key | | | | | seas 


Control Specifications 













Number 
of Print 
Positions 


Size to Reserved 


Line 


Currency Symbol 
Date Format 
& Date Edit 
Alternate Collating Sequence 
RPG to RPG II Conversion 


N 


Nonprint Characters 


Punch MFCU Zeros 
Transparent Literal 


c 
° 
= 
a 
fe} 
a 
“a 
E 
- 
° 
“a 
a 
= 


Indicator Setting 
File Translation 


S/3 Conversion 


ww 
C 
° 
a 
o 
mn 
c 
= 
=: 
awd 


Sign Handling 


~ 
c 
= 
a 
8 
< 
& 
> 
ar 


a] 
o 
> 
— 
bd 
o 

r 


Shared 1’O 
& Field Print 
CICS/DL ‘4 





x 
a 
m 
o 
J 
2 
a 
ra 
| a 
4/ 


S  Formatred Dump 


3 
a 
= 
2 
o 
~ 
mJ 
= 
2 
Oo 


tg Reserved 
2 Reserved 


> 
~ 


28 29 30 33 97 33 34 35 6 F97138 


; GHRCHESHNE! in 


——— Decimal notation (periods 


a 
a 





Format of date or commas) In some systems, the name in positions 
(month/day/year, 75 through 80 of the Control and File 
year/month/day, or Description Specifications form is used 
day/month/year) to name the object program. 


Checking the Specifications 
Desk checking is a good way to reduce the number of potential program 
errors. Desk checking means carefully checking through your specifications to 


see whether you have: 


Placed eniries in appropriate positions 


Used correct entries in positions 


Spelled the same field and file names identically throughout your program 


Used your indicators correctly 


If you find that you have omitted a specification (for example, did not name an 
input field or an output field or did not enter a calculation), you can enter it on 
a line following line 20 (line 10 on the Control and File Description 
Specifications form under File Description). 
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Notice that no line numbers have been entered in positions 3 through 5 of the 
specification lines located below line 20. You can place numbers in these 
positions to tell where the missing specification belongs: 


IBM RPG OUTPUT SPECIFICATIONS Seat ina 


SPE" E intersgronal Business Machines Corporanon Printed :‘nUSA 


75 76 77 78 79 aceeae 
Prograrn 
identification 


Key 
—_ — ee t a! . = ve 
7 SE vv gi 2 rT 
Field Name fy - to Print us Si 5 ; 
or Ss a = 
EXCPT Name | ie 
ie n = 
- ition 0 Spine 
Dh i } 
° : r Constant or Edit Word 
‘412 3 4 5 6 7? 8 9 10111213 14 15 16 17 18 19 26 21 22 23 24° 









Filename 
or 
Record Name 



































































































Pit! foltNiviolticlel ddl | lawl | | a |g TEE 
Pe ETT REEL CC Cow OPO 
ee OL TO let ivoire els 
SAAN TEE SAEAIC/\MAUUAUEEEREEUAGGHUCEGEUNSHENHESEROSEERESEESERLEEE 
of fo CoM CCC SLGRRRERSREE 
Pe fo Coe SUSRRGOGEGREE 
CACCEPE Aa 
CCCP ae alae See 
Cig ETE nae 
PEER AGERE ie: ebheLechuibsashee rn 
SAGUSHHESHRGGKEREREE SEOUAUIEEE 
CE al fie e ial cat 
Ceca CEE cotter 
pee ce 
nas 
saad 











oh 



























I ‘ 
: ; | i : : 


¢ 








oT tn this sta the programmer did not ecify information to be included 
__ | on the second heading line. On the lines following line 20, he entered the 
occas assess) missing specifications. Notice that positions 3 through 5 tell where the 
specifications belong. The line numbers 051 and 052 indicate that the 

| specifications belong between lines 05 and O6. 










_] fale.» 
[pole 








me : ee 
tt OL 6 8 £49 S$ w E 2 1 


Nw 
~ 






If your specifications are being keypunched, the out-of-order cards must be 
inserted in the appropriate place. If the source program is being entered 
directly into the system through a keyboard, the missing specifications will 
have to be inserted in the appropriate place when the specifications are keyed. 


The Programmer’s Job 137 


©) 


138 


oool 
RG 025 
0002 


0003 
0004 
0005 
0006 
OO0O07 
0008 
0009 
0010 
ooll 
0012 
0013 
0014 
0015 


0016 
0017 
0018 


0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0930 
0031 
0032 
0033 
0034 
0035 
0036 
0037 


0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 


COMPILE THE SOURCE PROGRAM 


OOO! H 


0002 


0003 


0004 
0005 
0006 
O0O0T 
0008 
0009 
0010 
OOll 
0012 
0013 
0014 
0015 
0016 


0017 
0018 
0019 


0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 


0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 


When you think your source program is free of errors, it can be keyed 
according to the source entry method for your system. You can then compile 
your source program. The important part of compilation is, of course, 
translating the source program into machine language. But in addition to this, 
the compiler also produces a program listing similar to the following: 


O14 


FNAMADD- [IP 


FINVOICE oO 


INAMADD 


Fee ee Oe oe ee re ee ce, ce oe 


OINVOICE H 
OR 


OR 


eoooqoq0qo0eoq0q0qcQ0cC0ce0o0ce 0cO0 000 


oo0ooooo0qoo0o0 


128 128 


120 120 


Oll Ld 


O2N 20 


SHPCD 
QTY 


AMOUNT 


304 


32 


1 CN 


1 CT 


OV 


COMP 2 


MULT UPRICE 


ADD 


10 
OVNLO 


10 
OVNLO 


10 
OVN10 


10 
OVN10 


LO 
OVN1O 


10 


OVNLO 


10 
OVN1O 


10 


97 
98 
99 


INVTOT 


ACCNO 


NAME 


ADDR 1 


ADDR2 


ADOR3 


INVOCE 


INVOCE 


INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 


979899IS CODE 1le2s3e?7INVOCE 


DSIK 
PRINTER 
2 60ACCNO L1 
7 26 NAME 
27 4&9 ADDRI 
50 72 ADDR2 
73 95 ADJDR3Z 
96 960SHPCD 
2 60ACCND LI 
9 1401 TEMNO 
15 29 DESCRP 
30 «=—340NTY 
35 392UPRICE 
AMOUNT 52 
INVTOT 102 
45 "INVOICE® 
17 *ACCOUNT NUMBERS 
23 
T *NAME® 
39 
10 *ADDRESS' 
“2 
42 
42 
24 *SHIPPING ‘INSTRUCTIONS® 
33 "BY AIR* 
33 *BY TRUCK* 
33 *BY RAIL* 


FIND ITEM TOTALINVOCE 
FINO INV TOTAL INVOCE 


INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 


INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 


o{ 


f 


©) 


0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
0059 
0060 
0061 


0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
0059 
0060 
0061 
0062 


qoo0noo0oo0oo0oo0oo00q0qng000o 


OR 


INDICATORS USED 
L1 QV 10 20 97 98 99 


FIELD NAMES USED 


STMT # 
0004 
0005 
0006 
0007 
0008 
0009 
0012 
0013 
0014 
0015 
O01? 
0018 


ERROR 


RPG- 


NAME 
ACCNO 
NAME 
ADORI 
ADDR2 
ADDR3 
SHPCD 
ITEMNO 
DESCRP 
QTY 
UPRICE 
AMOUNT 
INVTOT 


NUMBER 
0221 


DEC LNG 
0 0005 
0020 
0023 
0023 
0023 
ooo} 
0006 
0015 


OO 


0005 
0005 
0010 


NmMNN © 


32 


0005. 


DISP 
O16C 
0113 
O1L2ZA 
0141 
0158 
016D 
0173 
3167 
0178 
0170 
0182 
018C 


OVN1O 


20 


ae | 


STATEMENT NUMBER 


00 


ERROR SEVERITY 
RPG-0025 T 
RPG-0221 W 


INVALID DEVICE NAME IN COLUMNS 40-46% ASSUME DISKe 


17 


ITEMNOZ 
DESCRP 

QTY Z 
UPRICE1 
AMOUNT IL 


INVTOT18 


14 
34% 
50 
65 
81 


11 
36 
49 
63 
82 


65 
B82 


‘ITEM NUMBER? 
*DESCRIPTION® 
*QUANTITY® 
‘UNIT PRICE® 
"AMOUNT ® 


*INVOICE TOTAL® 


TEXT 


RESULT FIELD LENGTH MAY NOT BE LARGE ENOUGH. 


The most important parts of the program listing’ are: 


A printout of source specifications including comment lines. Notice 
the number at the left of each line. This is the sequence number the 
compiler assigns to the specification. 


A list of all indicators used in the program. 


A list of all fields used in the program. Included in the list is the 
storage location assigned to each field and a description of each 


field as indicated in your specifications. Some compilers also 
provide this information for constants used in the program. 


Diagnostic messages indicating the types of errors made and the 


statement in which they occur. 


The sample listing shown is the program listing for the invoice job 
(INVOCE). This program listing was produced by the IBM System/34 
RPG If compiler (program 5726-RG1). Other compiler listings provide 
similar information. See the RPG reference manual for your system for 
a sample program listing for your system. 


INVOCE | 
INVOCE | 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
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lf the compiler finds any errors in your source specifications, it prints 
diagnostic messages telling you what errors were made. Various types of 
messages are printed: warning, terminal, or informative. A warning message is 
an indication that something may be wrong. If a warning message is printed, 
check the questioned specification. If the specification is all right for your 
program, you may not need to make any changes. If you get a terminal 
message, however, something is wrong with your coding. You must fix the 
specification and recompile the program before the compiler will actually 


tranclato your snocifications, 


as te we ¥~ wpe w teeta GEE 


The following example shows diagnostics from the IBM System/34 RPG II 
compiler listing. (See the RPG reference manual for your system for a sample 
program listing for your system.) The diagnostic message section of the 
program listing contains two basic parts: a list of messages Q and an 
explanation of each message @. 


Q ERROR NUMBE ERSTATEMENT eo 
as OO1T 


ERROR severtty All EI TEXT 
| RPG-0025 T INVALID DEVICE NAME IN COLUMNS 40-46% ASSUME DISK. 
RPG-0221 WwW RESULT FIELD LENGTH MAY NOT BE LARGE ENOUGH. 


Each error message in the list is identified by a message number [JJ Next to 
the message number is either a statement number identifying the specification 
in which the error appears, or a field name or constant associated with the 
error Pi. Following the list of messages is an explanation of each error and 
an indication of the severity of each error (W = warning; T = terminal). 


The sample shown above shows diagnostic messages printed for the invoice 
program. Note that message 221 is a warning. A warning is an indication that 
something may be wrong. Therefore, you must check the specification noted. 
If you find that the specification is correct, you may not need to change it. 


Checking the message in the listing, you would find that the warning points to 
the AMOUNT field in statement 0017: 


0018 C 20 QTY MULT UPRICE AMOUNT 52 FIND ITEM TOTALINVOCE 


The AMOUNT field is specified as five characters with two decimal positions. 
In checking your specifications, you find that the amount should have been 
seven digits with two decimals, and that it was incorrectly keyed in the source 
data. 


Message 0025 is a terminal error. This error number appears below the 
statement at which the error occurred. Checking the listing, you find that the 
error number appears at statement 1, where the device entry DISK was 
miskeyed as DSIK. You must correct this error. (Check the RPG reference 
‘manual for your system for the correct entries for the Device positions.) 


TEST THE PROGRAM 


It is good practice to test your program before using it for an actual job. To do 
this, make up test data representing all possible situations that could arise 
during an actual job. Run your program using that data to see if your program 
will really handle the situations you think it does. If you get the wrong results 
when testing, you know your program is not doing what you thought it would. 
You can usually find your errors by using actual input data and doing the 
operations specified yourself, step by step, in the order the system would do 
them. When doing this, you have to follow closely your specifications and the 
program cycle operations taken by your program. After you test your program 
and the results show it can handle ail situations, your job is complete. 
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address: A number identifying a location in storage. 


alphabetic: In general usage, any of the letters A 
through Z. In-RPG programming, any of the letters A 
through Z and special characters @, #, and $. 


AND relationship: The specifying of conditioning 
indicators so that the operation is performed only when 
all conditions are met. 


arithmetic operation: An operation such as addition, 
subtraction, multiplication, and division performed in the 
processing unit. 


ascending sequence: The arrangement of records in a 
file from low to high, based on the contents of a 
specified field in each record. 


blank after: An output specification that changes the 
contents of a field so that it contains only zeros or 
blanks after that field has been written to the output 
record. 


Calculation Specifications form: An RPG coding form 
that specifies the type and order of calculations to be 
performed on the input data. 


card: In data processing, a card containing 
combinations of holes representing data to a system. 


card file: A group of related punched-card records. 


card layout form: A chart for planning the design and 
format of cards. 


card punch: A device that records information on a 
card in the form of combinations of holes representing 
characters. 


card reader: A device that electronically senses 
information on punched cards and transfers that 
information to the processing unit. 


character: Any individual data item that can be 
represented in printed form; that is, a letter, a digit, or a 
special character. 


character constant: A constant used to represent any 
of the characters in the data character set. 


Glossary 


character field: A field that contains any of the 
characters in the data character set. 


coding: Making entries on RPG specification forms. 


comments: Words or statements in a program that 
serve aS documentation rather than as instructions to 
the compiler. 


compile: To translate a source program (such as RPG 
specifications) into an object program (machine language 
program) by using the compiler. 


compiler: A program that translates a source program 
into a machine language program. 


conditioning: Using indicators to control when 
calculations or output operations are done. 


constant: The actual data (not the name of a field 
containing the data) to be used in processing. A 
constant does not change during execution of a 
program, but the contents of a field can. For example, 
COST is a name representing a field containing data that 
changes, whereas the constant 100 is actual data that 
does not change. 


Control and File Description Specifications form: An 
RPG coding form that gives, for a particular job, 
information needed for control of the system and a 
description of the files used. 


control break: A change in the contents of a control 
field. It indicates that all records from a particular 
contro! group have been read and that a new control 
group Is starting. 


control field: One or more fields that are compared 
from record to record to determine when the 
information in the fields changes. When the information 
changes, the control level indicator (L1 through L9) 
assigned to a control field is set on. 


control group: A set of records all having the same 
control field information. 
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control level indicator: An indicator (L1 through L9) 
used to specify certain fields as control fields and to 
condition which calculation or output operations to 
perform at detail or total time. 


control unit: An area inside the processing unit that 
determines from instructions what has to be done. It 
directs other units or devices to perform the required 
functions. 


data: A collection of facts, numbers, letters, and 
symbols that can be processed or produced by a 
system. 


data character set: All of the 256 EBCDIC characters. 
_ descending sequence: The arrangement of records in 
a file from high to low, based on the contents of a 


specific field in each record. 


detail record: An output record produced during the 
detail output operation of the RPG program cycle. 


detail time: An operation in the RPG program cycle in 
which calculation and output operations are performed 


for each record read. 


diagnostic message: An output message that identifies 
RPG specification errors and their severity. 


digit: One of the characters O through 9. 


disk: A flat, circular plate with a magnetic surface on 
which data can be stored. 


disk drive: A device that reads data from or writes data 
on a disk. 


disk file: A group of related records stored on disk. 


diskette: A thin, flexible magnetic disk permanently 
enclosed in a semirigid protective jacket. 


documentation: A written explanation of a program, its 
use, function, and operations. 


edit: To punctuate a numeric field by suppressing zeros 
and inserting commas, decimal points, dollar signs, or 
other constant information. 


edit code: A number or letter indicating that editing of 


a numeric field should be done according to a 
predefined pattern. 
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eighty-column card: A punch card with 80 vertical 
columns representing 80 characters. 


end of file: The end of records in a file. 
error message: See diagnostic message. 


execute: To process input data files according to 
machine language instructions to produce the desired 
output. 

factor: in RPG programming, a field name or constant 
used in a calculation operation. 


field: One or more adjacent record positions that 
contain a particular item of information. 


field indicator: An indicator used to show whether a 
given field in an input record is plus, minus, zero, or 
blank. 


field length: The number of positions allowed for a 
given field, determined by the maximum length of 
information that will be entered in the field. 


field name: In RPG programming, a combination of no 
more than six alphabetic or numeric characters (the first 
of which must be alphabetic) that identifies a field. 


file: An organized collection of related records treated 
as a unit. 


file name: In RPG programming, a combination of no 
more than eight alphabetic or numeric characters (the 
first of which must be alphabetic) that identifies a file. 


first page indicator: An indicator used to specify which 
lines (such as headings) should be printed on the first 
page only. 


half adjust: A method of rounding off a number by 
adjusting the last digit to be kept. When the number to 
the right of the last digit to be retained is 5 or greater, 1 
is added to the last retained digit. For example, 2.475 
half adjusted to two decimal places becomes 2.48, but 
2.474 becomes 2.47. 


heading: A constant, usually printed at the top of a 
page, identifying the information or report on that page. 


indicator: (1) A 2-character entry on an RPG 
specification form used to test a field or record or to tell 
when certain calculation or output operations are to be 
performed. (2) An internal switch used by the object 
program to remember when 4 certain event occurs and 
what to do when the event occurs. 


input: Data that is to be operated on (processed) by the 
system. 


input file: A set of records a program uses as a source 
of data. 


Input Specifications form: A coding form used to 
identify the different types of records in each input file 
and to describe the fields in each record. 


instruction: A statement that specifies an operation to 
be performed by the system and the locations in storage 
of all data involved in that operation. 


keyboard: A device used to enter data into a system. 


keypunch: A device, similar to a typewriter, used for 
punching information into cards. 


last record indicator: An indicator that specifies when 
the last data record has been processed. 


machine language: A language that can be interpreted 
and used by a system. 


ninety-six-column card: A punch card with 96 vertical 
columns representing 96 characters. The columns are 
divided horizontally into thirds: the columns in the upper 
third are numbered 1 through 32; in the middle third, 33 
through 64; and in the lower third, 65 through 96. 


numeric: Any combination of the digits 0 through 9. 


numeric constant: A constant used to represent a 
number. The constant can consist of a decimal point, a 
sign, and the digits O through 9. 


object program: A set of instructions in machine 
language. The object program is produced by the 
compiler from the source program. 


operation: A defined action performed on one or more 
data items, such as adding, multiplying or comparing. 


operation code: A word or abbreviation specified on 
the Calculation Specifications form to identify an 
operation such as SUB for subtract or ADD for addition. 


OR relationship: The specifying of conditioning 
indicators so that the operation conditioned is performed 
when either one or both of the conditions are met. 


output: Data transferred from storage to an external 
medium such as printed form, punched cards, or disk. 


output file: A set of records that is written, punched, 
or printed by the system to an external medium. 


Output Specifications form: An RPG coding form 
used to specify the records to be written in each output 
file and the format of the records. 


overflow: The condition that occurs when the last line 
to be printed on the page has been passed. 


overflow indicator: An indicator that specifies when 
the last line on a page has been printed or passed. It 
can also be used to specify which lines are to be printed 
on the next page. 


overflow line: The line specified as the last line printed 
on a page. 


overflow page: The new page after an overflow has 
occurred. 


primary file: The main file from which a program first 
reads records. 


printer: An output device that records information on 
paper in the form of printed characters. 


printer spacing chart: A form used to plan the location 
of data in the printer output file. 


processing: Performing operations on data from an 
input record. 


processing unit: The part of a system that controls the 
system and its attached devices, provides storage area 
for the programs and data, and performs the operations 
specified in the program. 


program: A set of instructions that (when stored) tells 
the system which operations to do and how to do them. 


program cycle: A series of operations performed by 
the system for each record read. 
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program listing: A printout that gives information about 
the source program, such as source statements, 
diagnostic messages, indicators used, storage addresses 
of fields, and constants used. 


punched card: See card. 


record: A group of related fields or data items treated 
as a unit. A record is the basic unit of data transferred 


between a file and a program. 


record identification code: Characters placed in a 
record to identify that record type. 


record identifying indicator: An indicator that 
identifies the type of record just read. 


record length: The total number of positions in a 
record. 


record types: The classification of records in a file. 

Records are classified according to a specific field or 
fields within each record. Records of the same type 

have the same fields in the same order and identical 
record identification codes. 


result field: The name of a field where the outcome of 
arithmetic calculations is kept. 


resulting indicator: An indicator that can specify 
whether the result of a calculation is plus, minus, zero, 
or blank; whether a field is greater than, less than, or 
equal to another field; or whether an operation was 
successfully completed. 


secondary file: Any file other than the primary file used 
in multifile processing. 
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source program: A set of instructions representing a 
particular job as defined by the programmer. These 
instructions are written in a programming language, such 
as RPG. 


special character: A character other than a digit, a 
letter, or @, #, and $. For example, *, +, and % are 
special characters. 


specification forms: Forms on which an RPG program 
is coded and described. The four specification forms 
described in this manual are the Control and File 
Description Specifications form, the Input Specifications 
form, the Calculation Specifications form, and the 
Output Specifications form. 


storage: An area inside the processing unit where 
instructions and data are stored. 


total operations: Operations performed only after a 
group of records has been processed. 


total time: That part of the RPG progam cycle in which 
calculation and output operations specified for a group 
of records are done. 


zero suppression: The elimination of leading zeros in a 
number. For example, 00057, when zero suppressed, 
becomes 65557 (6 represents one blank space). 


add operation 45 
AND relationship 120 
arithmetic operation 102 


blank-after 59 
byte 1 


calculation operations 
description 41 
program cycle operations 41 
types of 43 
sample program 49 
calculation specifications form 42 
character constants 102 
character field 25 
coding 3 
comment lines 134 
compare operation 99 
compilation 4 
compiler 2 


constants 
character 102 
definition 43 
headings 66 


numeric: 43, 102 

control break 54 

controi field 54 

control level indicators 
definition 54 
program cycle operations 56 
RPG specifications 57 
sample program 60 

control specifications form 136 


data processing terms /7 

decimal positions 20, 48 
describing files 15 

describing input records 20 
describing output records 26 
describing the result field 46 
desk checking specifications 136 


Index 


detail output 14 

detail records 28 

device designation 17 
diagnostic messages 140 
divide operation 45 
documentation 134 


edit codes 35 
editing 34 

error messages 140 
example 1 37 
example 2 49 
example 3. 60 
example 4 77 
example 5 89 
example 6 105 
example 7 115 


factor 1 43, 99 
factor 2 43, 99 
field 7 
field indicators 
definition 112 
program cycle operations 112 
RPG specifications 113 
sample program 115 
field location 24, 31 
field names 22, 30 
files 
definition 7 
input 17 
output 17 
file description specifications form 15 
file designation 17 
file format 18 
file names 16, 21, 27 
first page (1P) indicator 
definition 64 
program cycle operations 65 
RPG specifications 66 
sample program 77 


group indication 59 
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half-adjusting 48 
heading records 28 
headings, constants as 66 


indicators 53 

input 1 

input devices 1 

inpui/ output operations 
description 13 
program cycle operations 13 
sample job 37 

input record description 20 

input specifications form 20 


K-byte 1 


last record (LR) indicator 
definition 74 
program cycle operations 75 
RPG specifications 76 
sample program 77 
leading zeros 34 
LR indicator (see last record indicator) 
L1 through L9 indicators (see control level indicators) 


machine language 2 
megabyte 1 
multiply operation 45 


negative values 34, 102, 114 
numeric constants 43, 102 
numeric field 25 


OA through OG, OV indicators (see overflow indicators) 
object program 2 

OR relationship 74, 119 

output 1 

Output devices 1 

Output record description 26 

Output specifications form 26 

overflow 68 

overflow handling 68 
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overflow indicators 
definition 68 
program cycle operations 70 
RPG specifications 72 
sample program 77 
overflow line 68 
overflow page 68 


positive values 34, 102, 114 
primary file 1/7 

printed output 1 

printed reports 32 

printer spacing chart 9 
processing unit 1 

program 2 

program cycle 11 

program cycle operations 13 
program listing 138 
programming aids 8 
programming language 2 
programming terms, basic 7 
programmer's job 123 


record 7 

record identification codes 85 

record identifying indicators 
definition 81 
program cycle operations 82 
RPG specifications 83 
sample program 89 

record layout form 8 

record length 18 

record sequence 8/7 

record size 18 

record type 28 

record sequence 8/7 

reports, printed 32 

result field 46 
decimal positions 48 
describing 46 
half-adjusting 48 
lengih 48 

resulting indicators 
definition 96 
program cycle operations 96 
RPG specifications 98 
sample program 105 

rounding 48 

RPG program cycle 11 

RPG programming language 2 

RPG specification forms 3 


sequence checking 93 
skip 72 
skipping 33 
source program 

compilation 4 

description 2 

translation 4 
spacing 

after printing 73 

description 32 

with overflow 72 
specifications forms 3 
specification form order 135 
specifying record identification codes 85 
specifying record identifying indicators 86 
specifying record sequence 8/7 
steps in RPG data processing 5 
Storage 1 
subtract operation 45 
system, data processing 

description 1 

input devices 1 

output devices 1 

processing unit 1 


test the program = 141 

total records 28 

translating source programs into object programs 4 
type of data 25 


zero suppress 34 


1P indicator (see first page indicator) 

01 through 99 indicators (see field indicators, 
record identifying indicators, resulting 
indicators) 
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